Question

vb如何创建ADO对象

Answer 1

要先加入ADO类：在菜单[工程]-[引用]，在[可用的引用]中选种Microsoft ActiveX Data Objects 2.0 Library或更高板本.
再在编辑状态下的声明区加入
Public cn As New ADODB.Connection
Public cmd As New ADODB.Command
Public rs As New ADODB.Recordset
这样就加入了ADO的三个主要对象：连接对象，命令对象，与表对象。

Answer 2

Dim conn As Object, rs As Object
Set conn = CreateObject("adodb.connection")
conn.open "provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\tmp\db1.mdb"
Set rs = CreateObject("adodb.recordset")
rs.open "select * from table1 order by id", conn, 1, 1
'…………