Question

VB中实时错误-2147217904 :至少有一个参数没有指定值

Private Sub Command1_Click()
Dim kl As String
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Dim rs1 As New ADODB.Recordset
Dim sql1 As String
kl = Combo1.Text
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB\1.mdb;Persist Security Info=False"
db.Open
sql = "select * from 学生档案表"
rs.Open sql, db, adOpenStatic, adLockReadOnly
sql1 = "select * from 学生档案表 where 姓名='" & kl & "'"
rs1.Open sql1, db, adOpenStatic, adLockReadOnly //该句提示有错误,该怎么改?
If rs.RecordCount = 0 Then
MsgBox "表内无记录" '如果为空，弹出对话框
Else
rs.MoveFirst '如果不为空，定位到选定的记录
Text1.Text = rs1.Fields(0).Value
Text2.Text = rs1.Fields(1).Value '显示相应字段的内容
Text3.Text = rs1.Fields(2).Value
Text4.Text = rs1.Fields(3).Value
Text5.Text = rs1.Fields(4).Value
Text6.Text = rs1.Fields(5).Value
Text7.Text = rs1.Fields(6).Value
Text8.Text = rs1.Fields(7).Value
Text9.Text = rs1.Fields(8).Value
Text10.Text = rs1.Fields(9).Value
Text11.Text = rs1.Fields(10).Value
Text12.Text = rs1.Fields(11).Value
Text13.Text = rs1.Fields(12).Value
MsgBox ("查询成功")
Adodc1.Refresh
End If

End Sub

Answer 1

检查sql1 = "select * from 学生档案表 where 姓名='" & kl & "'" 中kl的值是什么