Dim Con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim s As String
Private Sub Command1_Click()
Con.Open s
rs.Open "SELECT * FROM TRAIN WHERE FROM LIKE '" & Combo1.Text & "%' AND TO LIKE '" & Combo2.Text & "%' ", Con, adOpenDynamic, adLockOptimistic
While Not rs.EOF
Text3.Text = rs(0)
Text4.Text = rs(1)
Text6.Text = rs(2)
Text7.Text = rs(3)
Text5.Text = rs(4)
rs.MoveNext
Wend
Note : On the UI you will get the values of last records as you are over writing the Text.Text with new record in each iteration.