Visual Basic 6.0 : SQL Search

Sample Codes Here:

Private Sub cmdSH_Click()
Dim rs As New ADODB.Recordset
rs.Open "select * from tblsampledb where FirstName='" & txtFN.Text & "'", con, adOpenDynamic
If Not rs.EOF Then

txtMN.Text = rs!MiddleName
txtLN.Text = rs!LastName
txtFN.SetFocus
Else
txtMN.Text = ""
txtLN.Text = ""
txtFN.SetFocus
Exit Sub

End If
End Sub

Watch video below