Accessでレコードセットが「-1」の件　直りました

Private Sub ADOtest()

Dim rs as ADODB.Recordset

Set rs = New ADODB.Recordset

　　　　　　　　　　　　　　　　　　　　　　　　　↓ここ変えた

rs.Open "T_テスト", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

MsgBox rs.RecordCount

rs.Close

Set rs = Nothing

End Sub

これで出来た。

参考にしたページです。

また、値に『'』が入ったヤツがあったから、それは↓。