I using this code to get value from database using ADODB connection. But i am getting runtime error in the highlighted field. How to add parameterized query.
Code:
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim tmp As String
Private Sub Combo1_click()
rs.Open "SELECT journeytime from ticket where cityname=' & combo1.text & '", db
rs.MoveFirst
While (rs.EOF = False)
tmp = rs.Fields(0).Value
Combo2.AddItem (tmp)
rs.MoveNext
Wend
rs.Close
End Sub

Private Sub Form_Load()
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb;Persist Security Info=False"
rs.Open "SELECT cityname from ticket", db
rs.MoveFirst
While (rs.EOF = False)
tmp = rs.Fields(0).Value
Combo1.AddItem (tmp)
rs.MoveNext
Wend
rs.Close
End Sub