Public cn As New ADODB.Connection
　　Sub main()
　　 Set cn = New ADODB.Connection
　　 cn.CursorLocation = adUseClient
　　 cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\boss.mdb;Persist Security Info=False"
　　End Sub
　　Private Sub cmd_login_Click(Index As Integer)
　　
　　If txt_user.Text = Empty Then
　　
　　MsgBox "用户名不能为空！", vbOKOnly + vbInformation, "客户信息管理系统登录提示"
　　txt_user.SetFocus
　　Exit Sub
　　End If
　　If txt_pass.Text = Empty Then
　　
　　MsgBox "密码不能为空！", vbOKOnly + vbInformation, "客户信息管理系统登录提示"
　　txt_pass.SetFocus
　　Exit Sub
　　End If
　　
　　Dim strsql As String
　　strsql = "select * from [admin] where 管理员姓名='" & Trim$(txt_user.Text) & "' and 管理员密码='" & Trim$(txt_pass.Text) & "' "
　　Dim str As ADODB.Recordset
　　 Set str = New ADODB.Recordset
　　 str.CursorLocation = adUseClient
　　 str.Open strsql, conn, adOpenStatic, adLockReadOnly
　　
　　 With str
　　 If .State = adStateOpen Then .Close
　　 .Open strsql
　　 If .EOF Then
　　 Try_times = Try_times + 1
　　 If Try_times >= 3 Then
　　 MsgBox "您已经三次尝试进入本系统，均不成功，系统将自动关闭", vbOKOnly + vbCritical, "警告"
　　 Unload Me
　　 Else
　　 MsgBox "对不起，用户名不存在或密码错误 ！", vbOKOnly + vbQuestion, "警告"
　　 txt_user.SetFocus
　　 txt_user.Text = ""
　　 txt_pass.Text = ""
　　 End If
　　 Else
　　
　　 Unload Me
　　
　　 frmmian.Show
　　
　　 End If
　　 End With
　　
　　End Sub
老是提示参数类型不正确或不在可接受范围内或与其他参数冲突

　  
　　Private Sub cmd_login_Click(Index As Integer)
　　dim cn as new adodb.connection
    dim rs as new adodb.recordset
    dim cn_str as string
    dim sql_str as string

　　If txt_user.Text = "" Then
　　MsgBox "用户名不能为空！", vbOKOnly + vbInformation, "客户信息管理系统登录提示"
　　txt_user.SetFocus
　　Exit Sub
　　End If

　　If txt_pass.Text = "" Then
　　MsgBox "密码不能为空！", vbOKOnly + vbInformation, "客户信息管理系统登录提示"
　　txt_pass.SetFocus
　　Exit Sub
　　End If
　　
　  cn_str="driver={sql server};server=();uid=sa;pwd=;database=database_name"
    cn open cn_str
　　sql_str = "select * from table_name where 管理员姓名='" & txt_user.Text & "' and 管理员密码='" & txt_pass.Text & "' "
　　 rs open cn_str,sql_str
　　 rs.CursorLocation = adUseClient
　　 rs.Open strsql, conn, adOpenStatic, adLockReadOnly
　　
　　 If rs.recordcount=0 then
     MsgBox "对不起，用户名不存在或密码错误 ！", vbOKOnly + vbQuestion, "警告"
　　 txt_user.SetFocus
　　 txt_user.Text = ""
　　 txt_pass.Text = ""
     else
      frmmian.Show
     end if
   
     Try_times = Try_times + 1
　　 If Try_times = 3 Then
　　 MsgBox "您已经三次尝试进入本系统，均不成功，系统将自动关闭", vbOKOnly + vbCritical, "警告"
　　 Unload Me
     end if

　　End Sub
这样应该可以了，但是其中下面一句要根据自己的情况来写了：
cn_str="driver={sql server};server=();uid=sa;pwd=;database=database_name"

貌似没有什么错啊，数据库检查一下看看