能不能用ADO建立一个纯内存的数据表？

Question

IMDB(In-memory database)，本来 Microsoft 把它和 Windows 2000 捆绑发行的，后来突然取消了。不知道为什么。

Answer 1

简单：
Private Sub Form_Load()
    Dim rs As New ADODB.Recordset
    rs.Fields.Append "username", adVarChar, 20
    rs.Fields.Append "password", adVarChar, 20
    
    rs.Open
    rs.AddNew
    rs("username") = "aaa"
    rs("password") = "bbb"
    rs.Update
    
    rs.Find "username='aaa'"
    If Not rs.EOF Then
        MsgBox (rs("password"))
    End If
    rs.Close
    Set rs = Nothing
End Sub

Answer 2

谢谢hydnoahark(诺亚方舟)的指教！感激！感激！但是，我还有疑问：为什么不能用SQL语句创建呢？Private Sub Form_Load()
    Dim rsTest As ADODB.Recordset
    Dim cmdTest As ADODB.Command    Set cmdTest = New ADODB.Command
    cmdTest.CommandText = "create table (username int, password varchar(20))"
    cmdTest.CommandType = adCmdText
    Set rsTest = cmdTest.Execute '出错!!
     'Run-time error '3709'
'连接无法用于执行此操作。
'在此上下文中它可能已被关闭或无效。
    
    rsTest.Open
    rsTest.AddNew
    rsTest!username = "aaa"
    rsTest!password = "bbb"
    rsTest.Update
    
    rsTest.Find "username='aaa'"
    If Not rsTest.EOF Then MsgBox (rsTest!password)
    rsTest.Close
    Set rsTest = Nothing
    
End Sub怎样才能通过COMMAND对象，用SQL语句来创建表呢？是通过设置COMMAND对象的ActiveConnection属性吗？或者是建立一个特殊的Connction对象？
还有就是如果我不停地添加/删除记录，ADO能支持多久然后才崩溃呢？

Answer 3

command对象不支持无连接操作，所以不能用。