---- 在对数据库操作时，用户往往会碰到多种数据库表格数据的互导，如将sysbase表中的数据导入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.6版，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”中有各自数据源即可。