Vista - Why this error message appear

why this error message appear?

Com object that has been separated from its underlying rcw canot be used.





the code here:





Try


Dim cn As New OleDbConnection

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=MyCustomers.mdb;Persist Security Info=False"

cn.Open()

Dim cmd As New OleDbCommand

cmd.CommandText = "select * from tbl_customers where CustomerId = ?"

cmd.Connection = cn

Dim pr1 As New OleDbParameter

pr1.Value = txtSearchCustomerID.Text

cmd.Parameters.Add(pr1)

Dim dr As OleDbDataReader

dr = cmd.ExecuteReader



dr.Read()



txtcustomerId.Text = dr(0)

txtcustomername.Text = dr(1)

cn.Close()

cmd.Dispose()

dr.Close()

Catch ex As Exception

MsgBox(ex.Message)

End Try