ODBC-Verbindung per VBS

Option Explicit
Dim Cn As New ADODB.Connection

Private Sub Form_Load()
    With Cn
    'Meistens Cursor auf Client außer für SEHR große Arbeiten  
        .CursorLocation = adUseClient

    ' Sperrungen (hier keine bei Multiuser)  
        .Mode = adModeShareDenyNone

    ' DB-Provider (hier Access 2000)  
        .Provider = "Microsoft.Jet.OLEDB.4.0"  
        .ConnectionString = "Data Source=C:\Temp\Test.mdb"  
        .Open
    End With
End Sub

Const adUseClient = 3
Const adModeShareDenyNone = &H10

Set Cn = CreateObject("ADODB.Connection")  
With Cn
    'Meistens Cursor auf Client außer für SEHR große Arbeiten  
    .CursorLocation = adUseClient

    ' Sperrungen (hier keine bei Multiuser)  
    .Mode = adModeShareDenyNone

    ' DB-Provider (hier Access 2000)  
    .Provider = "Microsoft.Jet.OLEDB.4.0"  
    .ConnectionString = "Data Source=C:\Temp\Test.mdb"  
    .Open
End With