Option Explicit
 
Global rsOpt as ADODB.Recordset
Global Variable as Long
 
Public Function Load()
 
    Set rsOpt = New ADODB.Recordset
    rsOpt.CursorLocation = adUseClient
    rsOpt.Open "SELECT * FROM Tabelle", cn, adOpenStatic, adLockOptimistic
 
    With rsOpt
 
        .MoveFirst
       Variable = !MaxTreffer
 
    End With
 
End Function