[thefifthhjohn]

hi I'm having arguments are of the wrong type I'm having errors in rs.Open "SELECT * FROM [tbladmin] WHERE [username] = '" & txtUsername.Text & "' AND [password] = '" & txtPassword.Text & "'", con, adOpenStatic, adLockOptimistic

Dim con As New ADODB.Command
Dim rs As New ADODB.Recordset

Private Sub cmdlogin_Click()
OpenCon
rs.Open "SELECT * FROM [tbladmin] WHERE [username] = '" & txtUsername.Text & "' AND [password] = '" & txtPassword.Text & "'", con, adOpenStatic, adLockOptimistic
If rs.RecordCount <> 0 Then
MsgBox "the user has login", vbOKOnly + vbInformation, "LOGIN"
frmadmin.Show
ElseIf rs.RecordCount <> 1 Then
MsgBox "please re-enter your username/password"
End If
End Sub

[BobRodes]

The reason that you're not getting any responses is because you haven't explained your problem clearly enough. Please go into a bit more detail.