VB6 ADO Set rs = command.Execute

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command

' 创建连接对象
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;Persist Security Info=False"
conn.Open

' 创建命令对象
Set cmd = New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = "SELECT * FROM mytable"
cmd.CommandType = adCmdText

' 执行命令并将结果存储在 Recordset 对象中
Set rs = cmd.Execute

' 遍历 Recordset 对象并显示结果
Do While Not rs.EOF
    Debug.Print rs("column1"), rs("column2")
    rs.MoveNext
Loop

' 关闭 Recordset 和连接对象
rs.Close
conn.Close

' 释放对象
Set rs = Nothing
Set conn = Nothing
Set cmd = Nothing