当鼠标放在相应文字的上面，就弹出关于这个文字的说明

按要求放好控件，直接把下面代码复制到窗体里就行了

Dim cn As New ADODB.Connection
Dim rsUser As New ADODB.Recordset
Dim strSql As String

Private Sub Command1_Click()
On Error GoTo ErrFlag
strSql = "select top 1 密码 from cs where 姓名='" & Combo1.Text & "'"
If rsUser.State = adStateOpen Then rsUser.Close
rsUser.Open strSql, cn, adOpenStatic, adLockOptimistic
If rsUser.RecordCount > 0 Then
If Trim(rsUser!密码) <> Trim(Text1.Text) Then
MsgBox "密码错误", vbInformation, "提示"
Set rsUser = Nothing
Exit Sub
End If
Else
MsgBox "无此用户", vbInformation, "提示"
Set rsUser = Nothing
Exit Sub
End If
'这里可以继续
Set rsUser = Nothing
Exit Sub
ErrFlag:
On Error GoTo 0
End Sub

Private Sub Form_Load()
On Error GoTo ErrFlag
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4