Question

vb中提示参数类型不正确或者不在可接受范围内

Private Sub Command1_Click()
Dim Username As String
Dim Password As String
Username = Text1.Text
Password = Text2.Text
Adodc1.Recordset.Find "用户名='" & Username & "'and 密码='" & Password & "'", , , 1 ‘问题在这句
If Adodc1.Recordset.EOF Then MsgBox ("用户名或密码错误")
end Sub

Answer 1

修改为：
Adodc1.Recordset.Find "用户名='" & Username & "' And 密码='" & Password & "'"
后面的“, , , 1”都是可选的，如果空，采用默认值。注意and与单引号之间有空格。

追问

问题不是这个，我加了空格后还是一样的提示，我不知道会不会是access数据库那边的问题，那边的数据格式我设置的是文本格式

追答

上面语句就是文本格式，如果还是这样，估计是你输入的用户名和密码的变量是空值，或你的二个变量的值在数据表不存在。

其实在查询时一般不常用Find方法的，你可以换其他查询方式，例如：

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "用户名不能空"
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "用户密码不能空"
Exit Sub
End If
Dim Username As String
Dim Password As String
Username = Text1.Text
Password = Text2.Text
Adodc1.RecordSource = "Select * From 数据表名 Where 用户名='" & Username & "' And 密码='" & Password & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then MsgBox ("用户名或密码错误")
End Sub

Answer 2

and与前面的单引号之间,要一个空格?
Adodc1.Recordset.Find "用户名='" & Username & "' and 密码='" & Password & "'"

追问

问题不是这个，我加了空格后还是一样的提示，我不知道会不会是access数据库那边的问题，那边的数据格式我设置的是文本格式

追答

错误提示内容是什么？
请问，你Adodc1的ConnectionString属性和RecordSource属性设置了吗？