Option Explicit
 
Public Function dbStart(ByVal strSQL As String) As Recordset
    Dim DatenbankName As String
    Dim SQL_Benutzername As String
    Dim SQL_Passwort As String
    Dim Server As String
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
 
    DatenbankName = "ww"
    SQL_Benutzername = "ww"
    SQL_Passwort = "ww"
    Server = "ww"
 
    conn.ConnectionTimeout = 10
    conn.CommandTimeout = 180
 
    conn.Open "Provider=SQLOLEDB.1;Password=" & SQL_Passwort & ";" _
    & "Persist Security Info=True;User ID=" & SQL_Benutzername _
    & ";Initial Catalog=" & DatenbankName & ";" _
    & "Data Source=" & Server
 
    Set rs = conn.Execute(strSQL, , adCmdText)
 
     dbstart=rs
 
    rs.Close
    Set rs = Nothing
    conn.Close
    Set cnn2 = Nothing
End Function