我不知道如何將odbc打包進去，但我有一個迂回的方法來解決“odbc打包”問題，就是使用rdo對象的rdoRegisterDataSource方法在程序內動態注冊，這樣就不存在“odbc打包”的問題了。具體方法如下： 
    rdoRegisterDataSource 方法示例 
    下面示例說明使用 rdoRegisterDataSource 方法建立新的 ODBC 數據源項。 
    Private Sub RegisterDataSource() 
    Dim en As rdoEnvironment 
    Dim cnTest As rdoConnection 
    Dim strAttribs As String 
    '建造關鍵字字符串。 
    strAttribs = "Description=" _ 
     & "SQL Server on server SEQUEL" _ 
     & Chr$(13) & "OemToAnsi=No" _ 
     & Chr$(13) & "SERVER=SEQUEL" _ 
     & Chr$(13) & "Network=DBNMPNTW" _ 
     & Chr$(13) & "Database=WorkDB" _ 
     & Chr$(13) & "Address=\\SEQUEL\PIPE\SQL\QUERY" 
     
    '建立新的注冊的 DSN。 
    rdoEngine.rdoRegisterDataSource "示例", _ 
     "SQL Server", True, strAttribs 
    '打開數據庫。 
    Set en = rdoEngine.rdoEnvironments(0) 
    Set cnTest = en.OpenConnection( _ 
     dsname:="示例", _ 
     Prompt:=rdDriverNoPrompt, _ 
     Connect:="UID=;PWD=;") 
     
    End Sub 
<END>