字符串么？像是没有赋值。
另外，当Dim 记录集的时候已经DIM成New ADODB.RecordSet后，使用时就不必再SET 为New ADODB.RecordSet了。
一般我使用ADO的时候是用
Dim Rs AS New ADODB.RecordSet
Dim CN As New ADODB.Connection
dim StrData as String '数据库边接字串
Dim sqlTxt as string '将要被执行的SQL语句
....
cn.connectionstring=strdata
cn.open
sql="SELECT....."
Rs.open sql,cn,1,1 '只读，是否只读在于后面两个参数。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024