Posts by VIPER5646

try the following

Me.ReportViewer1.LocalReport.EnableExternalImages = True
      Dim img As String = "file:\\[U]FilePath+Filename[/U]"
      Dim path As New ReportParameter("LogoPath", img)
      ReportViewer1.LocalReport.SetParameters(New ReportParameter() {path})
      Me.ReportViewer1.RefreshReport()

wrong post

Thanks all
I had forgotten to instantiate ModelBuilder_Relation.
At least I asumed I had it wright instead of Dim ModelBuilder_Relation as new Arraylist I had Dim ModelBuilder_Relation as Arraylist. Now it seams to be working

I cant seam to mark this thread as solved may be because I did not start this thread .

Thank you all for your replies.

Based on the code I posted I closed it by using m_dr.close.
If that is correct than they are all closed and I still get the same error.

I seam to be having the same problem.
I added the the code that NetProgramer suggested but I wasn't successful.
My error is given at the While m_Dr.read

This is My code.

query = "Select * From " & Tabela & " where Model= @Model" & " Order by model asc"

        Dim txtSource As String
        Dim ObjFile As New System.IO.StreamReader("C:\CWDEsign\CWDEsign.txt")
        txtSource = ObjFile.ReadToEnd()
        ObjFile.Close()
        ObjFile.Dispose()

        Dim sourse As String = "Data Source=" & txtSource & ";"
        Dim providr As String = "Provider=Microsoft.ACE.OLEDB.12.0;"
        Dim MYcon = providr & sourse
        Dim con = New OleDb.OleDbConnection(MYcon)
        Dim cmd As New OleDb.OleDbCommand(query, con)
        With cmd.Parameters
            .AddWithValue("@Model", BModel)
        End With
        cmd.CommandType = CommandType.Text
        cmd.CommandText = query
        con.Open()
        Dim m_dr As OleDbDataReader

        m_dr = cmd.ExecuteReader
        m_dt.Load(m_dr)
        If (con.State = ConnectionState.Open) Then
            con.Close()
        End If
        con.Open()
             While m_dr.Read
            ModelBuilder_Relation.Add(m_dr.GetString(0))
                End While