Anzahl der Datensätze ermitteln

Sub Termine_Heute_aus_Access_lesen()
On Error Resume Next
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
Dim sSql As String
Dim Datum As String
Dim TestFeld(2, 8)
Dim dynaZeile As Single
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = ActiveWorkbook.Path & "\Daten.mdb"
cn.Open
rs.ActiveConnection = cn
rs.Source = "Termine"
Worksheets("Heute").lst_Heute.ColumnCount = 2
Worksheets("Heute").lst_Heute.ColumnWidths = 70
Datum = str(Date)
sSql = "SELECT * FROM Termine WHERE Datum = DATE() ORDER BY Zeit"
rs.Open (sSql)
For dynaZeile = 0 To 5
TestFeld(0, dynaZeile) = rs![Zeit] & " Uhr  " & vbTab
TestFeld(1, dynaZeile) = rs![Dauer] & " Min   " & vbTab & rs![Thema]
rs.MoveNext
Next dynaZeile
Worksheets("Heute").lst_Heute.Column() = TestFeld
rs.Close
End Sub