Please help me to connect vb6 to access.

Public Function validuser(Username As String, password As String)
 
Dim db As String
Dim Cmd As String
Dim sql As String
Dim Cn As ADODB.Connection
Dim rs As ADODB.Recordset
 
db = App.Path & "\nfl.accdb"
'Data Source = "C:\Users\Sanat\Desktop\Class project\nfl.accdb"
'Cmd = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & db & ""
Provider = "Microsoft.ACE.OLEDB.12.0; Data Souurce= C:\Users\Sanat\Desktop\Class project\nfl.accdb;"
'OLEDB: Database password = myDbpassword
Persist security Info= False;
Set Cn = New ADODB.Connection
 
With Cn
.ConnectionString = Cmd
.Open
End With
 

 
Set rs = New ADODB.Recordset
 

sql = "Select * From [Security] where Username LIKE '" & Username & "' and Password LIKE '" & password & "'"
rs.Open sql, Cn, adOpenForwardOnly, adLockReadOnly
 

If Not rs.EOF Then
validuser = True
Else
validuser = False
End If

rs.Close
Set rs = Nothing
 
Cn.Close
Set Cn = Nothing
End Function