Dim m_Connection As ADODB.Connection
Dim adoRS As ADODB.Recordset
 
Private Sub main()
    Dim SQL As String
    Dim strConnect As String
 
    Set m_Connection = New ADODB.Connection
    Set adoRS = New ADODB.Recordset
 
    strConnect = "Provider=SQLOLEDB.1;Initial Catalog=dbv;Data Source=##;User" & _
      "ID=##;Password=##"
    m_Connection.Open strConnect
    SQL = "SELECT * FROM Mitarbeiter"
    adoRS.Open SQL, m_Connection, adOpenDynamic, adLockBatchOptimistic
    MsgBox (CStr(adoRS.RecordCount))
adoRS.close
End Sub