云风的个人空间 : Comment37

首页 :: 索引 :: 修订历史 :: 你好, 3.141.29.162
你的足迹: » 登陆/注册
这是一个 HyyLjh?登陆/注册于2009-12-09 00:28:37写下的留言.
云风,你好!我是一个编程爱好者,现在我遇到一个问题,想请教你一下。我做了一个系统登录的界面,并且连接到了Access数据库,代码是这样的
Private Sub Command1_Click()
Dim strSq1 As String
Dim rs As New ADODB.Recordset
If Trim(Text1?.Text =
  Text1?.SetFocus?
  Exit Sub
  Else
   strSq1 = "select * from 系统管理 where Name= '" & Text1?.Text & "'"
   rs.Open strSq1, cnn, adOpenKeyset, adLockPessimistic
   If rs.EOF = True Then
  MsgBox? "没有这个用户,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
    Text1?.SetFocus?
    Exit Sub
   Else
   If Trim(Text2?.Text) = Trim(rs.Fields(2)) Then
   rs.Fields(1) = Text1?.Text
   rs.Fields(2) = Text2?.Text
   rs.Close
   Unload Me
   main.Show
   Else
   MsgBox? "密码不正确!", vbOKOnly + vbExclamation, "提示"
   Text2?.SetFocus?
   End If
   End If
End If
End Sub
Private Sub Form_Load()
Dim cnn As New ADODB.Connection
Dim connectionstring As String
connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & " data source=通讯录.mdb"
cnn.Open connectionstring
End Sub、
但一运行就提示错误事实错误“3001” 类型不正确,或不在可接受范围内,或与其他参数冲突,请问你是怎么回事,谢谢你了