skriv antallet af records fra Access-database

Er her nogen som ved hvordan man kan tælle antal records i en access-database..
Har lavet en Textbox16 hvor jeg vil have skrevet antallet af forekomster i... altså hvis der er 10 records i databasen skal der stå 10 osv osv...



Private Sub Form_Load()
'Her oprettes connection til databasen og der vælges hvad table der skal tages fra
Set ws = Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\kundeHistorik.mdb")
Set rs = db.OpenRecordset("SELECT * FROM Historik order by rsFirmanavn")

On Error Resume Next 'med dette undgåes fejlmeddelelse hvis den ikke kan finde recorden

'Her fylder jeg listboxen
'Først chekker jeg om jeg står ved første post i db
If Not rs.EOF Then
    'Gør den ikke sætter jeg den til at stå på første post
    rs.MoveFirst
    'Her laves et loop der kører alle poster igennem
    Do While Not rs.EOF
        'Her tilføjer jeg firmanavnet til listboxen
        List1.AddItem rs!rsFirmanavn
        'Her gives navnet et listindex som skal bruges senere til at sammenligne databasen med
        List1.ItemData(List1.NewIndex) = rs!rsKundenr
        'Går vidre til næste post
        rs.MoveNext
    Loop
End If
'Her fylder jeg tekstfelterne med først post
'Går til første post
rs.MoveFirst
'Her sættes teksten ind i tekstfelterne
Text1.Text = rs!rsKundenr
Text2.Text = rs!rsFirmanavn
Text3.Text = rs!rsKontakt_fornavn
Text4.Text = rs!rsKontakt_efternavn
Text5.Text = rs!rsPostnr
Text6.Text = rs!rsBy
Text7.Text = rs!rsAdresse
Text8.Text = rs!rsTlf1
Text9.Text = rs!rsTlf2
Text10.Text = rs!rsMobil
Text11.Text = rs!rsHistorik
Text12.Text = rs!rsFax
Text13.Text = rs!rsEMail
Text14.Text = rs!rsWWW

Combo1.Text = rs!rsStatus 'fylder comboboksen med data

'Her lukker vi forbindelsen til databasen igen
rs.Close
db.Close
ws.Close
End Sub