whats the error? Type Mismatch? If so you did this

Code:
SearchSting = "User = '" & Trim(txtUser.Text) & "'" And "Pass ='" & Trim(txtPass.Text) & "'"
change it to this

Code:
SearchSting = "User = '" & Trim(txtUser.Text) & "' And Pass ='" & Trim(txtPass.Text) & "'"
for your other question
just put in your else for when login is correct

userGroup = txtUser.Text