Private Sub cmdRegOK_Click()
If txtRegUser = "" Then
MsgBox "用户名不能为空", vbCritical
txtRegUser.SetFocus
Exit Sub
Else: strSQL = "select * from 系统用户 where 用户名='" & txtRegUser.Text & "'"
....................
If Adodc1.Recordset.EOF = False Then
MsgBox "用户名已被使用", vbCritical
txtRegUser.SetFocus
Exit Sub
End If
End If
If txtRegPassword = "" Then
MsgBox "密码不能为空", vbCritical
txtRegPassword.SetFocus
Exit Sub
End If
If Trim(txtRegPassword) <> Trim(txtRegOKPassword) Then
MsgBox "密码不一致", vbCritical
txtRegPassword.SetFocus
Exit Sub
End If
Adodc1.Recordset.Update
MsgBox "注册成功"
系统登录.Show
Unload Me
End Sub


上面这个有错``
上面加了...............的就是不知用什么语句才可以查找数据库
知点用的帮个忙
请高手帮忙

上面加..........就是想加入查找数据库的语句
然后就与txtRegUser比较,
如果数据库有就下面````



有无人帮下``

不是连接```
是查询数据库中有无有这个内容