1、还没有打开连接
2、把连接关闭了

此前你肯定执行了rs.close关闭操作，导致你的rs.recordcount不存在!

没有啊，我把完整的事件过程给你看一下。Private Sub Form_Load()

 Dim cnn As New ADODB.Connection
Dim regjts As New ADODB.Recordset


cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\vbw\xxcx.mdb;Jet OLEDB:Database Password=pwd;"
regjts.CursorLocation = adUseClient
regjts.Open "select * from bbbb", cnn, adOpenKeyset, adLockOptimistic, adCmdText
Set Adodc1.Recordset = regjts

End Sub

没有看见你的上面出错的那句话啊

你试一下，在语句If rs.RecordCount>1 Then....前面加上一句：if rs is nothing then
endif  如果该表达式为true 则不要执行If rs.RecordCount>1 Then....了。

他给出的代码没错，只是没见到rs而已？？？？

 你吧 regjts.Open "select * from bbbb", cnn, adOpenKeyset, adLockOptimistic, adCmdText该为
regjts.Open "select * from bbbb", cnn,adOpenStatic 试试

看这段代码就知道了，他把Connection放到了Form_load 事件中，然后再其它的事件中在执行动作，但这个连接他定义的是局部变量！所以应该把定义改称模块变量就OK拉！

agree uguess(uguess)　

     又一个“保证不给分”的家伙！

  

楼上的不要再说我了，
我不都给了你们吗？
要讲点信用对不对？

应该这样：
rs.CursorLocation = adUseClient
rs.Open "other", mainf.conn, adOpenKeyset, adLockPessimistic