错误提示:至少一个参数没有被指定值,请指教!
.下面的代码运行后提示:至少一个参数没有被指定值。请教各位大神,哪里出问题了?private sub command1_click()
dim conn as new ADODB.Connection
dim rs as new ADODB.Recordset
dim ss as string
dim qs as string
ss="Provider=Microsoft.jet.OLEDB.4.0;Data Source=D:\VB开发\VB学习\数据库练习\persion.mdb;Persist Security Info=false"
conn.Open ss
qs="select * from 一般员工 where name=" & Val(text1.text)
rs.Open qs, conn, 1, 3, -1
Label1.Caption=rs.field("姓名")
Label2.Caption=rs.field("性别")
rs.Close
conn.Close
End Sub