现在已经可以读取相关资料了，但是，我调用rs.RecordCount 时候总是“-1”，弄得我没有办法查询相关资料了。
Dim rs As ADODB.Recordset
Dim SQL As String
Dim i As Integer
rs.RecordCount
Set rs = New ADODB.Recordset
SQL = "select * from iduser where J_user_S=" & Text1.Text
Set rs = CN.Excute(SQL)
For i = 1 To rs.RecordCount
....
...
Next