Private Function GetPass(ByVal User As String) As String  'liest nur ein 
' userpasswort aus
 
  Dim tblUsers As Recordset, SQL As String
  Dim D As Long
 
  On Error GoTo Fehler
 
  SQL = "SELECT * FROM tbl_Users WHERE User_NName ='" & User & "'"
 
  If ConnectDB = False Then
     GetPass = "None" 
     Exit Function
  End If
 
 
  Set tblUsers = DB.OpenRecordset(SQL)
 
  If tblUsers.RecordCount = 0 Then
     GetPass = "None"
    Else
     GetPass = tblUsers("User_Passwort")
  End If
 
 
  tblUsers.Close
  Set tblUsers = Nothing
  DisConnectDB
  Exit Function
 
Fehler:   ' <-------- Hierauf kommts mir an
 
  If ErrorTyp(Err.Number) = "Try" Then  'Errorbewertungsfunktion "Try" oder _
    "Closeprog"
     D = D + 1
     If D > 3 Then                      'Nach 3 maligen durchlauf nützt 
     ' alles nichts mehr...                            
        D = 0
        DisplayMsg Err.Number, 0        'Msg anzeigen
        Err.Clear                       'Fehler säubern
        GetPass = "None"
        Exit Function                   'und tschüss ...
     End If
     Wait 1
     Resume                             '1 Sekunde warten und Resumen
 
   Else
     DisplayMsg Err.Number, 0
     Err.Clear
     GetPass = "None"
 
  End If
 
 
End Function

VB RULEZ !