Getrows henter kun en række

Hej

Jeg har nedenstående kode som henter et recordset fra en db og smider det i getrows. Mit problem er at den kun henter den første række og ikke hele tabellen.

Jeg har arbejdet lidt med asp og der skal man bare sige ubound(arraynavnet), og så har man det.. er det ikke lige så nemt her ?

koden :

Dim db As DAO.Database
Dim tblRstApp As DAO.Recordset
Dim tblRstAppSupTbl As DAO.Recordset
Dim AppSubTbl as Variant
Dim i

Set db = CurrentDb()

  Set tblRstAppSupTbl = db.OpenRecordset("TBL_AppSupTbl", dbOpenDynaset)


AppSubTbl = tblRstAppSupTbl.GetRows()

tblRstApp.FindFirst "ApproverID =" & varApproverID
 
Me.txtSubmitter.Value = tblRstApp("Submitter")

MsgBox "Ubound-" & UBound(AppSubTbl, 2) & "-" & AppSubTbl(1, i) ' Viser 0 - og først værdi fra tabellen

For i = 0 To UBound(AppSubTbl, 2)
    If tblRstApp("DestTable") = AppSubTbl(1, i) Then
        Me.txtDestTable = AppSubTbl(2, i)
        Exit For
    End If
Next