Private Sub kartei_Click(Index As Integer)
 
'Falls keine Verbindung aufgebaut werden kann
On Error GoTo ErrorHandler
'Funktionsaufruf (Im connection_modul1)
connection_start = Connection1(Cn, Rs, sMsg)
On Error GoTo 0
On Error Resume Next
...
...
...
...
Exit Sub
 
ErrorHandler:
Error1 = Connection_error()
 
 
End Sub

Private Sub Form_Load()
 
(Hier werden nur Bilder für die Buttons geladen und der Abbrechen - Knopf _
  deaktiviert)
...
...
...
 
On Error GoTo ErrorHandler
'Funktionsaufruf (Im connection_modul1)
connection_start1 = Connection1(Cn, Rs, sMsg)
On Error GoTo 0
On Error Resume Next
 
...
...
...
 
(Nach Connection - Aufbau wird das Recordset ausgelesen und in die einzelnen _
  Textboxen gespielt, bzw. Flexgrids.)
 
Exit Sub
 
ErrorHandler:
 
'Funktionsaufruf (Im error_modul1)
Error1 = Connection_error()
 
hauptmenue.Show
 
Unload aktuelle_kartei
Unload karteiauswahl

Function Connection1(Cn As ADODB.Connection, Rs As ADODB.Recordset, sMsg As _
  String)
 
 
 
   Set Cn = New ADODB.Connection
   Set Rs = New ADODB.Recordset
 
   With Cn
    .CursorLocation = adUseClient
    .Provider = "MSDASQL"
    .Open "Driver={MySQL ODBC 3.51 Driver}; Server=localhost; Database=XXX;", _
      "XXX", pswname
   End With
 
 
 
End Function

Function Connection_error()
 
 
    Open App.Path & "\Logdatei.txt" For Append As #1
    Print #1, Date & " " & Time & ": Datenbankserver offline. Neustart."
    Close #1
 
Ergebnis = Shell("net start mysql", vbHide)
 
    Mldg = "Der Datenbankserver ist offline!"
    Stil = vbOKOnly + vbCritical + vbDefaultButton2
    Titel = "Fehler!"
 
    Antwort = MsgBox(Mldg, Stil, Titel)
 
End Function