tnx for replying masters = )
so i will put in thise code to frmregister_load ryt??
CODE
Private Sub frmregister_Load()
Adodc1.recordset.addnew
adodc1.fields(0).value = "Value you want"
adodc1.fields(1).value = "Value you want"
Adodc1.recordset.update
End Sub
like this??
ahm another one ,, about the login page here is the code
i cant connect the adouserinfo in this one form do you think i miss some alteration on the property page??
CODE
Private Sub cmdLogin_Click()
Dim usrname As String
Dim psword As String
Dim usernam As String
Dim pssword As String
Dim Msg As String
Register.adoUserInfo.Refresh
usrname = txtName.Text
psword = txtpassword.Text
Do Until Register.adoUserInfo.Recordset.EOF
If Register.adoUserInf.Recordset.Fields("username").Value = usrname And Register.adoUserInf.Recordset.Fields("password").Value = psword Then
frmlogin.Hide
frmLibrary.Show
Exit Sub
Else
Register.adoUserInfo.Recordset.MoveNext
End If
Loop
Msg = MsgBox("Invalid password, try again!", vbOKCancel)
If (Msg = 1) Then
frmlogin.Show
txtName.Text = ""
txtpassword = ""
Else
End
End If
End Sub
what do you think is wrong with this one??
| 