Visual Basic

<br />
Dim Cnxn As New ADODB.Connection<br />
        Dim cmdChange As ADODB.Command<br />
        'Connection String<br />
        Dim strCnxn As String<br />
        'SQL Query<br />
        Dim strSQL As String<br />
        'search criteria<br />
        Dim strSearchLName, strSearchFName As String<br />
        Dim Now As DateTime<br />
        Dim UserPassID As Integer<br />
        UserPassID = Val(lblPassID.Text)<br />
        strSearchLName = txtLName.Text<br />
        strSearchFName = txtFName.Text<br />
        ' define strSQL to insert the fields<br />
        strSQL = "SELECT * FROM Contacts WHERE (LName) = '" & strSearchLName & "' AND (FName) = '" & strSearchFName & "'"<br />
        strCnxn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\RMSC LOGIN\MYDataBase.mdb;Persist Security Info=False"<br />
        Cnxn = New ADODB.Connection<br />
        Cnxn.Open(strCnxn)<br />
        cmdChange = New ADODB.Command ' Create command object<br />
        cmdChange.ActiveConnection = Cnxn<br />
        cmdChange.CommandText = strSQL<br />
        cmdChange.Execute() ' execute the SQL command<br />
        ' Fill the Labels with the Search results <br />
        This is where i Fail !!!!!     <br />
        Cnxn.Close() ' Close everything<br />
        Cnxn = Nothing<br />