Question

VB6.0中做的登陆程序，我做了2个Access的数据库，一个是登陆账号数据库，一个是登陆信息录入数据库

如何做到要求：点击登陆后检索账号和密码，正确就打开MDI窗口并在登陆信息录入数据库中添加一段记录？登陆账号是Adodc1，登陆录入是Adodc2 求代码
Private Sub Command1_Click()
Dim U As Boolean, P As Boolean, Ok As Boolean
With Adodc1
.Refresh
Do While Not .Recordset.EOF
U = .Recordset.Fields(0).Value = Text1.Text '字段0为用户名称
P = .Recordset.Fields(1).Value = Text2.Text '字段1为用户密码
If U And P Then
Ok = True
Exit Do
Else
.Recordset.MoveNext
End If
Loop
End With

If Ok Then
MDIForm1.Show
Else
MsgBox "登录失败"
End If
End Sub
这是我自己写的，初学。。

Answer 1

输入账号密码后。
点击登录按钮，这里就要把数据库对应的用户，账号密码调出来对比，如果对就OK。如果不对重新输入。
这个没什么难度！！！

追问

但是我现在是要他登陆成功后，在数据库录入一条他登陆成功的信息

追答

那就在后面直接写入数据库，比如登陆USRE、登陆时间、。。。。