我做了一个小程序，如下，就是用记录集执行select语句
数据库连接没有问题，可是运行时老是出现错误提示：“至少一个参数没有被指定值”

private Sub Form_Load()
dim bl1_select as string
dim string1 as string
dim cnn as ADODB.connection
dim rs1 as ADODB.Recordset
dim bl1_rs1 as integer
bl1_select = "1"
string1 = "select count(*) from T_RKDB where cldm like '" + "__" + bl1_select + "%" + "' And gysdm = CStr(txtgysdm.Text) And rq = CStr(Format(Date))"
Set cnn = New ADODB.Connection
Set rs1 = New ADODB.Recordset
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + App.Path + "\物资管理系统.mdb " + ";Persist Security Info=False"
cnn.Open
rs1.CursorLocation = adUseClient
rs1.Open string1, cnn, adOpenStatic, adLockOptimistic, adCmdText
bl1_rs1 = rs1.Fields(0)
msgbox bl1_rs1
end Sub
请问我错在哪，请高手指点一二 ，小弟先行谢过！

在线等^^^^^^

"select count(*) from T_RKDB where cldm like '" + "__" + bl1_select + "%" + "' And gysdm = CStr(txtgysdm.Text) And rq = CStr(Format(Date))"

看看这句先..可能是你的字段名写错了..

没有呀
txtgysdm 是文本框的名称

rq　是一个日期变量

cldm　是一个字段名

到底错在哪？

rq ,cldm ,gysdm 都是字段名
rq 是日期类型
cldm 和 gysdm 是文本类型

版主们帮帮我！

"select count(*) from T_RKDB where cldm like '" + "__" + bl1_select + "%" + "' And gysdm = CStr(txtgysdm.Text) And rq = CStr(Format(Date))"

就是這句有問題叻```不知道伱怎麼想的````可能是引號用的不對...用DEBUG檢測一下.....偶以前也是這樣的````

ado1.RecordSource = "select * from RETFOT where SPORT = " & """" & gdatas(1) & """"

看着引號這么多```但是功能是一樣的````

这么多引号,不知道楼上的.是否学过SQL语言
...

你不是在学rq是字段名吗?
rq是日期类型吗?..
那在access中.日期类型要用#括起来的啊...你还用CStr转换字符串与它比较,这不显然错了吗.

伱懷疑對叻```沒學過```隻懂得6個基本語句```

這個等同于SQL語句```
select * from RETFOT where SPORT = "(TEXT中的內容)"

試驗過很多次,不存在問題``