hente med SQL fra tabel Where

Hej

Nu håber jeg ikke alle hajer er til julefrokost!!

Jeg skal hente bestemte data ud af en tabel og helst i et array.

det har jeg gjort fra Excel (altså hentet i Access) med held.

Nu har jeg så prøvet at adopterer koden til access - men den henter kun 1 post???

Iøvrigt ville jeg gerne lige at I kiggede på koden og fortalt om det også er sådan man gør når det er internt i Access - eller om der er en bedre måde (alternativ)

Her er min kode:

Private Function connect_to_db(nbr, strType)
Dim rsData As ADODB.Recordset
Dim szConnect As String
Dim szSQL As String
Dim tmpControl
Dim Path As String

Path = "C:\Database\Database.mdb"

szConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data source=" & Path & ";"

szSQL = "SELECT (nr) FROM Register WHERE [id] = '" & nbr & "';"

Set rsData = New ADODB.Recordset
rsData.Open szSQL, szConnect, adOpenForwardOnly, adLockReadOnly, adCmdText

connect_to_db = rsData

rsData.Close
End Function