Hello everyone,
I have a vb application which search for records in a table based on another table. The table analysis contain multiple record,the table man_tmp should display records based on the ana_id field. When i run the code I see the records in the datagrid but it disappear instantly.Can anyone help please. Here are my code.thnx.

Dim cn2 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Set cn2 = New ADODB.Connection
cn2.ConnectionString = MDI1.txtcn
cn2.Open
rs1.Open "select ana_id from analysis where ana_name = 'analysis1'", cn1, adOpenStatic, adLockPessimistic


Do While Not rs1.EOF


Adodc1.ConnectionString = MDI1.txtcn
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from man_tmp with(nolock)where description like '%" & rs1.Fields("ana_id") & "%'"
Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
rc.Text = Adodc1.Recordset.RecordCount


If Not rs1.EOF Then
rs1.MoveNext
End If
Loop