Dear All,
 
I am facing a problem in vb6 and access very badly.
 
I have been developing a small application in VB6 and access. I want to select 2 fields from table A (which has only two fields viz investigation and rate) and insert the selected fields from table A to table B based on a condition from table A.
 
I have written the following code but i am getting the following error
vb6-runtime-error-2147217900-(80040e14)
The code is as under

Private Sub Command4_Click()
 
With Form1.list1.ListItems(Form1.list1.SelectedItem.Index)
sql = "select investigation.investigation, investigation.rate" & _
"from investigation where(((investigation.investigation)=" & (Form1.list1.SelectedItem.Text) & "));"
Connection
rs.Open sql, Con, adOpenDynamic
If Not rs.EOF Then
Text3.Text = rs!investigation
Text4.Text = rs!rate
End If
rs.Close
Con.Close
 
Set Con = Nothing
End With
End Sub

Please help
Sarfaraz

Tags: VB