Public Function dbOpenRecordset(oConn As ADODB.Connection, _
  ByVal sSQL As String, _
  Optional ByVal CursorType As ADODB.CursorTypeEnum = adOpenDynamic, _
  Optional ByVal LockType As ADODB.LockTypeEnum = adLockOptimistic, _
  Optional ByVal CursorLocation As ADODB.CursorLocationEnum = adUseClient) _
  As ADODB.Recordset
 
 
  Set dbOpenRecordset = New ADODB.Recordset
  With dbOpenRecordset
    .CursorLocation = CursorLocation
    .Open sSQL, oConn, CursorType, LockType
  End With
End Function

Sub TestdbOpenRecordset()
 
connStr = "driver={SQL Server};" & _
    "server=Test;database=TestDB;" & _
    "uid=Muster;pwd=Passwort"
 
oConn.Open connStr
 
Dim oRs As ADODB.Recordset
Set oRs = dbOpenRecordset(oConn, "SELECT * FROM Tabelle")
 
End Sub