help on my code please!

I use Microsoft Activex Data Object 2.8 Library

here is my code!

module...
Public conConnection As New ADODB.Connection
Public rsRecord As New ADODB.Recordset

Public Sub DBConnection()
conConnection.Open
Set conConnection = New ADODB.Connection
conConnection.CursorLocation = adUseClient

conConnection.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & App.Path & "\database\guidance.mdb"

End Sub

Login Button

f Text1.Text = "" Then
MsgBox "Please Enter Account!", vbCritical, "Error"
Text1.Text = ""
Text2.Text = ""
Exit Sub
End If

DBConnection
Set rsRecord = New ADODB.Recordset
rsRecord.Open "Select * from User where Username = '" & Text1.Text & "' And Password = '" & Text2.Text & "'", conConnection, adOpenForwardOnly, adLockOptimistic
'
If Text1.Text = " & Username & " And Text2.Text = " & Password & " Then
MsgBox "Login Succeeded!", vbInformation + vbOKOnly, "Successfully Login!"
'Shell "Main", vbNormalFocus

Else
MsgBox "Username:" & Text1.Text & " and Password did not match any records from DataBase!", vbCritical, "Error"
Text1.Text = ""
Text2.Text = ""
End If

'close the recordset
rsRecord.Close: Set rsRecord = Nothing
'close the connection
conConnection.Close: Set conConnection = Nothing
End Sub

tnx in advance!