在对数据库操作时，用户往往会碰到多种数据库表格数据的互导，如将SYBASE表中的数据导入WINDOWS的Sql Server表中或是Access的*.mdb表。如果用传统的DB-Libraryf方式：先用select语句读出数据再用insert语句导入数据。这种方法的缺陷是：如果表格的字段太多编程时势必要出错且不易调试；字段数据中有“’”符号时无法用insert将其插入。ADO（Activex Data Objects）很好的解决了这些问题。ADO处在DB-Liberary的上端，Microsoft将其捆在MDAC发布。自今ADO已由ADO1.0,ADO1.5发展到ADO2.0版，ADO1.0以上版本支持大字段（如Access表中的备注）。ADO对字段名即可以直接写出其字段名称也可以用阿拉伯数字代替。我们以ADO1.5为例，VB5.0英文版为编程语言。如果机器里装有ADO，则在Windows 95下在c:\Program Files\ Common Files\ System\ado下有msado15.dll,msador15.dll文件。打开VB5.0，建立一个应用程序，在“Project”菜单中选用“Reference”——> “Microsoft Activex Data Objects 1.5 Library”和 “Microsoft Activex Data Objects Recordset 1.5 Library” 

---- 下面是具体的程序： 

Dim objconn As ADODB.Connection 
Dim objrst As ADODB.Recordset 
注：objconn,objrst数据表中已有数据。 
Dim cjconn As ADODB.Connection 
Dim cjrst As ADODB.Recordset 
注：cjconn,cjrst是要从objconn,objrst导入数据 
Dim i As Long 

Private Sub Command1_Click() 
Set objconn = New ADODB.Connection 
objconn.Open "servername", "username", 
"userpassword" 
注：“servername”是用户在“控制面板” 
的“ODBC 32” 
中建立的数据源、“username” 
是用户对数据源（SYBASE）的用户名, 
”userpassword” 用户对数据源 
（SYBASE）的用户密码。 

Set objrst = New ADODB.Recordset 
Set objrst.ActiveConnection = objconn 
objrst.LockType = adLockOptimistic 
objrst.CursorType = adOpenKeyset 
objrst.Source = "tablename" 
注：“tablename” 数据源中的表名。 
objrst.Open 

Set cjconn = New ADODB.Connection 
cjconn.Open "servername", "username", 
"userpassword" 
注：“servername”,”username”, 
”userpassword”含义同上， 
只不过数据源是其他数据库。 
Set cjrst = New ADODB.Recordset 
Set cjrst.ActiveConnection = cjconn 
cjrst.Source = "tablename" 
注：“tablename” 含义同上， 
该表中的字段类型应 
与上面的表中的字段类型一致 
cjrst.Open 
i = 0 
Do While Not cjrst.EOF 
i = i + 1 
objrst.AddNew 
objrst(0) = cjrst(0) 
objrst(1) = cjrst(1) 
objrst(2) = cjrst(2) 
objrst(3) = cjrst(3) 
objrst(4) = cjrst(4) 
objrst(5) = cjrst(5) 
objrst(6) = cjrst(6) 
objrst(7) = cjrst(7) 
objrst(8) = cjrst(8) 
objrst(9) = cjrst(9) 
objrst(10) = cjrst(10) 
objrst(11) = cjrst(11) 
objrst(12) = cjrst(12) 
objrst(13) = cjrst(13) 
objrst(14) = cjrst(14) 
objrst.Update 
cjrst.MoveNext 
Debug.Print I 
注：“I”用于显示已导入了多少条记录。 
Loop 
End Sub 

---- 以上的1到14就是字段的索引值,用起来非常方便。以上的程序不但适用于SYBASE与WINDOWS的Sql server 、Access之间互导;还适用于SYBASE与SYBASE，Sql server与Access之间互导，只要“ODBC 32”中有各自数据源即可。