教我用vb输入帐号密码连接数据库！

这是我做的登陆窗体代码，你参考一下：
Option Explicit
'定义保存用户身份信息的模块级变量
Public strstatus As String
'定义允许用户验证登录信息的最大次数
Const MaxLogTimes As Integer = 3

Private Sub Command2_Click()
'变量intMsgReturn用于保存消息框的返回值
Dim intMsgReturn As Integer

'显示确认消息框，并获得返回值
intMsgReturn = MsgBox("你选择了取消登录，取消登录将结束应用程序！" _
& vbCrLf & "是否继续？", vbYesNo, "登录验证")

'根据用户选择判断是否，并结束应用程序
If intMsgReturn = vbYes Then
Unload Me '卸载登录窗体
End '结束应用程序
End If
End Sub

Private Sub Command1_Click()
Dim intChecked As Integer
Dim strName As String, strPassword As String

'静态常量intLogTimes用于保存用户请求验证的次数
Static intLogTimes As Integer
intLogTimes = intLogTimes + 1 '保存登录次数
If intLogTimes > MaxLogTi