Как сгенерить ODBC соединение из программы?

Sub RegisterDatabaseCNF()
    Dim dbsRegister As Database
    Dim strDescription As String
    Dim strAttributes As String
    Dim errLoop As Error
    Dim wrkDefault As Workspace
 
    ' Build keywords string.
    strDescription = 'ÁÄ Êîíôèãóðàöèÿ ÝíåðãîÎáüåêòà'
    strAttributes = 'Database=pubs' & _
        vbCr & 'Description=' & strDescription & _
        vbCr & 'DBQ=' & FileDB
 
    ' Update Windows Registry.
    On Error GoTo Err_Register
    DBEngine.RegisterDatabase 'ElectroCNF', 'Microsoft Access Driver (*.mdb)', True, strAttributes
    On Error GoTo 0
 
    If Dir(FileDB) = '' Then
       Set wrkDefault = DBEngine.Workspaces(0)
       Set dbsRegister = wrkDefault.CreateDatabase(FileDB, dbLangGeneral, dbVersion30)
    End If
 
    Exit Sub
 
Err_Register:
 
    ' Notify user of any errors that result from
    ' the invalid data.
    If DBEngine.Errors.Count > 0 Then
        For Each errLoop In DBEngine.Errors
            MsgBox 'Error number: ' & errLoop.Number & _
                vbCr & errLoop.Description
        Next errLoop
    End If
 
    Resume Next
 
End Sub