老是说我用户定义未定义。我是新手。在做个登陆界面

Private Sub CmdCancel_Click()
'//结束
End
End Sub

下面添加登录按钮的代码。

Private Sub CmdLogin_Click()

Dim UserName As String

Dim PassWord As String

Dim conn As New ADODB.Connection '定义新的连接

Dim rs As New ADODB.Recordset '定义新的记录集

Dim StrSQL As String '定义字符串StrSQL

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb" '打开连接，指定连接路径和支持

UserName = Trim(TxtUserName.Text) '将文本框内的值赋给定义好的变量，trim为类型转换函数
PassWord = Trim(TxtPassword.Text)

If UserName = "" Or PassWord = "" Then '如果输入的用户名和密码为空则

MsgBox "对不起，用户或密码不能为空！请重新输入！！", vbCritical, "错误"

ElseIf UserName <> Empty And PassWord <> Empty Then '否则如果用户名与密码都不为空则Cnum自加1，Cnum为窗体载入时添加数字变量，用于记录错误登录次数

Cnum = Cnum + 1

StrSQL = "select * from 用户信息表 where 用户名称= '" & UserName & "'and 用户口令 ='" & PassWord & "'"
'从用户信息表中查询用户名称和用户口令两个字段并获得属性值，为下面的判断语句做准备
rs.Open StrSQL, conn, adOpenKeyset, adLockPessimistic '//打开记录集,可以用数字代替

If rs.EOF = True Then '此句为判断的核心语句，EOF的返回值表示为最后一行的后一行，和BOF类似，返回值为TRUE，则表示表中不存在这一行记录，由此判断密码是否与表中记录相一致，从而达到验证的目的。
MsgBox "对不起，无此用户或者密码不正确！请重新输入！！", vbCritical, "错误"
TxtUserName.Text = "" '置文本框为空
TxtPassword.Text = ""
TxtUserName.SetFocus
rs.Close '每次打开记录完成后需要注意及时关闭，不然下次使用时会出错

If Cnum >= 3 Then '判断输入错误次数，以提高系统的安全性能
MsgBox "对不起，您已经多次失败，无权操作本系统！", vbCritical, "无权限"
Unload Me
Exit Sub
End If

Else '登陆成功,以下为权限验证

Form2.Show
Unload Me

End if

End if

End Sub

Private Sub Form_Load()
'//加载主窗时给文本框赋值
Cnum = 0
End Sub

无赖
不是很明白，我学ASP.NET的。
建议你到 CSDN中去发贴 ，效率高。、

虽然我很聪明，但这么说真的难到我了