Public dfwConn As ADODB.Connection
Public db As Connection
 
 
Public Sub Open_Odbc_Connection()
On Error GoTo Open_Odbc_Connection1:
    Dim sConnect As String
    ' set strings
    sConnect = "Provider=MSDASQL.1;Extended Properties='DSN=IT_ODBC;Description=ODBC zu Reklamation;UID=sa;PWD=;APP=Visual Basic;WSID=ZUHAUSE;DATABASE=Reklamation;LANGUAGE=us_english'"
    
    ' open connection
    Set dfwConn = New Connection
    dfwConn.Open sConnect
Exit Sub
Open_Odbc_Connection1:
    MsgBox "Error in Open_Odbc_Connection: " & Err & " " & Error$, vbCritical
    Resume Next
End Sub
 
Sub main()
 
Open_Odbc_Connection
 
End Sub