Option Explicit
 
Public Sql1    As Database
 
Sub Main()
    On Error GoTo RegisterODBC1
    Set Sql1 = OpenDatabase("ORIG01", False, False, "ODBC; DSN=ORIG01; UID=;" & _
      "PWD=")
  .... weitere Anweisungen
  Form1.Show
  Exit Sub
 
RegisterODBC1:
  If Err = 3151 Then  ' ODBC nicht vorhanden
    s = "Description=Original Datenbank" & Chr$(13)
    s = s & "OemToAnsi=No" & Chr$(13)
    s = s & "Server=VPNSERVER" & Chr$(13)
    s = s & "Address=\\SERVER\SQL\QUERY" & Chr$(13) ' das mußt du prüfen, 
    ' kannst es aber vielleicht auch ganz weglassen
    s = s & "Database=VacationManager" & Chr$(13)
    s = s & "LastUser=sa"  '  hier mußt du auch prüfen
    RegisterDatabase "ORIG01", "SQL Server", True, s
    Resume
  End if
End Sub