'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

Public Cn As ADODB.Connection
Public rs As ADODB.Recordset
Public sMsg As String
 
 
 
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
   'ConnectionTimeout funktioniert noch nicht so ganz
    .ConnectionTimeout = 15
    .CursorLocation = adUseClient
    .Provider = "MSDASQL"
    .Open "Driver={MySQL ODBC 3.51 Driver}; Server=XXX; Database=XXX;", "XXX", _
      "XXX"
   End With
 
 
 
 
End Function

Set rs = Cn.Execute("SELECT * FROM XYZ WHERE ID = '" & _
  connection_modul1.aufnahmezahl & "'")

nachname_aus_eingabe.text = rs("Nachname")
geburtsd_ein_ausgabe.text = rs("Geburtsdatum")
geb_ort_aus_eingabe.text = rs("Geburtsort")
vorname_aus_eingabe.text = rs("Vorname")
 
u.s.w.

Set rs = Cn.Execute("SELECT * FROM ZZZ WHERE ID = '" & _
  connection_modul1.aufnahmezahl & "'")