Public Rec As xRec
Public dbData As New ADODB.Connection
Private Type xRec
 Users As ADODB.Recordset
End Type
 
Public Function OpenDB()
 Dim prmConnection As String
 prmConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database" & _
   "Password=r4wmx;Persist Security Info=False;Data" & _
   "Source=rusers.aksdb;Mode=Read|Write"
 dbData.CursorLocation = adUseClient
 
 Do While dbData.State = 0 And z < 101
  z = z + 1
  dbData.Open prmConnection
 Loop
  Dim aRec As New ADODB.Recordset
  xTabelle = "SELECT * FROM Users": GoSub RecordÖffnen: Set Rec.Users = aRec: _
    Set aRec = Nothing
  Exit Function
RecordÖffnen:
  aRec.CursorLocation = adUseClient
  Do While aRec.State <> 1 And z < 11
    z = z + 1
    aRec.Open xTabelle, dbData, adOpenKeyset, adLockOptimistic
 
  Loop
  If aRec.State <> 1 Then
   MsgBox "Die Tabelle " & xTabelle & vbCr & "konnte nicht gefunden oder" & _
     "geöffnet werden.!"
  End If
  aRec.MarshalOptions = adMarshalModifiedOnly
  Return
End Function