login validation -

Good day to all!
I am having a problem regarding on login validation using VB 6.0 and SQL Server 2000.

The validations are:
1.if the user doesn't input anything in txtUserName and txtPassword
then a messagebox will appear with message "Either username or password contains nothing. Please retry."
2.if the user doesn't have any account then he tried to login
then a messagebox will appear with message "The User is not yet registered. Please register first before you login."
3.(here is my problem) if the user input an incorrect username or password
then a messagebox will appear and a message should be "Invalid username or password. Please retry."

i just want to know what's wrong with my program, because whenever i try to login with incorrect username and password, the messagebox "The User is not yet registered. Please register first before you login." always show instead of the messagebox "Invalid username or password. Please retry." ...
can you please help me with this problem. i would really appreciate if you do.

here is my program:

Private Sub cmdOK_Click()
Dim strName As String
Dim strPass As String
Dim strSql As String
Dim blnName As Boolean

blnName = False

Connect

strName = txtUserName.Text
strPass = txtPassword.Text
strSql = "select * from emp_admin where uname = '" & Trim(strName) & "' and pass = '" & Trim(strPass) & "'"

com.CommandText = strSql
com.CommandType = adCmdText
Set recset = com.Execute

If txtPassword = "" And txtUserName = "" Then
If MsgBox("Either username or password contains nothing. Please retry.", vbOKOnly, "login failed") = vbOK Then
frmLogAdmin.Show
End If
txtUserName.Text = ""
txtPassword.Text = ""
txtUserName.SetFocus
Else
With recset
If .EOF Then
If MsgBox("The User is not yet registered. Please register first before you login.", vbOKOnly, "login failed") = vbOK Then
frmLogAdmin.Show
End If
txtUserName.Text = ""
txtPassword.Text = ""
txtUserName.SetFocus
ElseIf Not .Fields("uname") = strName And .Fields("pass") = strPass Then
If MsgBox("Invalid username or password. Please retry.") = vbOK Then
frmLogAdmin.Show
End If
txtUserName.Text = ""
txtPassword.Text = ""
txtUserName.SetFocus
Else
Me.Hide
Call Shell("C:\Documents and Settings\jsarmiento\Desktop\newProjectCRM\CRM\CRM_Admin\CRM_Admin.Exe ", vbNormalFocus)
End If
End With
End If
Disconnect

End Sub