Tælle og liste poster fra db i selectbox

Hejsa
kan nedenstående bruges til at tælle antallet i din database (jeg har brugt det til at tælle antallet i en kolonne og lægge 1 til).
jeg har ikke lige kunnet få værdier vist. Måske det kan klares ved at navngive det markere også bruge 'rowsource'
/LA


Sub antal()
Dim slutværdi, antal As Integer
Dim slutcelle, item As Variant
Sheets("Ark2").Select

'Finder antal rækker
        Range("a2").Select
        Selection.End(xlDown).Select
        slutværdi = ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
        ActiveCell.Value = slutværdi + 1
        slutcelle = ActiveCell.Address
        Range("A2:" & slutcelle).Select
        antal = Application.CountA(Selection)
        Range("A1").Select
End Sub