Please Help!!!

[123]

Hello,

I'm new to VB and I am having problems getting this login screen to work. I'm using VB 6.0 and Access 97. My comand button that is supose to find and compare the user information looks like this:

Private Sub login_Click()
SearchSting = "User = " & Trim(txtUser.Text)
If txtUser.Text <> "" Then
  Data1.Recordset.FindFirst SearchSting
  If Data1.Recordset.NoMatch = True Then
    MsgBox "Please Enter a Valid User Name"
  Else
    If optReg.Value = True Then
      Load register
      register.Show
    Else
      Load DBAdmin
      DBAdmin.Show
    End If
  End If
End If
End Sub

I don't know what I'm doing wrong. If someone can help me out it would be cool. I have atach my login form and my login database in a zip file so you can take a look. Thanks for your help in advance!

-123

[Hack]

You didn't state what the problem is?

[123]

It dosen't work. I get an error stationg:

The Microsoft Jet database engine does not recognize <name> as a valid field name or expression. (Error 3070)

I was trying to check the user name first but I need to check the username and password against the database. If a valid user and pass is found I need it to coppy the info from the groupo collumn in the database to a variable named userGroup. I have tried Seek and Find first. I have been trying to get this login to work for days with no sucess. Please help!

-123

[Cander]

User is a tring field..soooo

SearchSting = "User = '" & Trim(txtUser.Text) & "'"

[123]

Thank You! I can't beleive I didn't see that. but I'm happy it works now! Ok now how would I check for the password feild as well? I tried

And "Pass ='" & Trim(txtPass.Text) & "'"

add to what you just gave me but I got another error. Also I need to get the value of the User collumn and save it to a variable named userGroup. Please help! Thanks!

-123

[123]

OK I got the user/pass working all I need now is a was to stor the group

[Cander]

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

SearchSting = "User = '" & Trim(txtUser.Text) & "'" And "Pass ='" & Trim(txtPass.Text) & "'"

change it to this

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

[123]

no I dont need the user name as user group. I need the record contained in the Group collumn of the database to be set to userGroup.

-123

[Cander]

you mean the group for the logged on user?

[123]

Yes. There are three columns in the database User | Pass | Group. When the User puts in a correct username and password then I need the group of that user to be saved to a variable so that I can use it throughout the program.

-123

[Cander]

ahh

userGroup = Data1.Recordset("group")

[123]

Thanks allot! My login is finish!

[Cander]

no problemo