Public Function OpenSql(sSql As String) As ADODB.Recordset
 
   On Error GoTo OpenSql_ERR
 
   Set OpenSql = New ADODB.Recordset
   OpenSql.Open sSql, con, adOpenDynamic, adLockOptimistic
 
 
OpenSql_Exit:
   On Error Resume Next
   Exit Function
 
OpenSql_ERR:
    MsgBox "Fehler in OpenSql" & vbNewLine & Err.Description
    Resume OpenSql_Exit
 
End Function