Private Function GetRecordSet(Byval sDBName As String, Byval sSQL As String) As _
  Recordset
     Dim DB As DataBase
     Dim Rs As Recordset
 
     Set DB = DBEngine.OpenDataBase(sDBName, False, False, ";pwd=passwort")
 
     If DB Is Nothing Then
           MsgBox "Fehler beim Öffnen der DB!"
           Exit Sub
     End If
 
     Set Rs = DB.OpenRecordSet(sSQL, dbOpenDynaset)
 
      If Not Rs.Eof Then 
             Set GetRecordSet = Rs
      End If
 
End Sub

Aufruf: Set myRS = GetRecordSet("MyDB.MDB", "TestTabelle")