Public Function funcADO_Connection_erstellen(strDatei As String, Optional _
  ADO_Mode As Integer = 16) As ADODB.Connection
 
Set funcADO_Connection_erstellen = New ADODB.Connection
 
With funcADO_Connection_erstellen
 .CursorLocation = adUseClient
 .Mode = 16
 .Provider = "Microsoft.Jet.OLEDB.4.0"
 .ConnectionString = strDatei
 
 .Open
End With
 
End Function
 
Public Function funcADO_Recordset_erstellen(ADO_Connection As ADODB.Connection, _
  strDatei As String, strSQL As String, _
Optional ByVal ADO_CursorType As ADODB.CursorTypeEnum = adOpenDynamic, _
Optional ByVal ADO_CursorLocation As ADODB.CursorLocationEnum = adUseClient, _
Optional ByVal ADO_LockType As ADODB.LockTypeEnum = adLockOptimistic) As _
ADODB.Recordset
 
Set funcADO_Recordset_erstellen = New ADODB.Recordset
 
With funcADO_Recordset_erstellen
 .CursorLocation = ADO_CursorLocation
 
 .Open strSQL, ADO_Connection, ADO_CursorType, ADO_LockType
End With
 
End Function

Dim ADO_Recordset As New ADODB.Recordset
Dim strSQL As String
 
strSQL = "SELECT * FROM Produkte"
 
Set ADO_Recordset = funcADO_Recordset_erstellen(funcADO_Connection_erstellen( _
  strDBFilename), strDBFilename, strSQL)