Public Function ConnMySB() as AdoDB.Connection
    Static pConnMyDB as adoDB.Connection
 
    If pConnMyDB is nothing then
        Set pConnMyDB = New adoDB.Connection
 
        pConnMyDB.CursorLocation = adUseClient
 
        pConnMyDB.Open  "xxxxxx"
    End if
 
    Set ConnMyDB = pConnMyDB
 
End Function
 
 
 
Private Sub DoFillTabellen()
    Dim rsTabelle as adoDB.Recordset
 
    Set rsTabelle = New adoDB.Recordset
 
    rsTabelle.Open  "Select * from .....", ConnMyDB,  adOpenDynamic, 
adLockOptimistic
 
    Do While Not rsTabelle.EOF
 
 
        ...
        ...
        rsTabelle.MoveNext
    Loop
 
    rsTabelle.Close
    Set rsTabelle = Nothing 
End Sub