Fejl på Rs.GetRows()

jeg får følgende fejl når jeg køre koden nedenfor :

Der opstod en Microsoft VBScript-kørselsfejl (0x800A01C2)
Antallet af argumenter er forkert eller egenskabstildelingen er ugyldig: 'PersonalList'

Det er denne kode der er tale om :

DbClass.SqlGet "Select PersonalId, Name, Email, Thedate From tbl_personal Order By Name Desc",True   
If Not DbClass.Rs.EOF Then
  PersonalList = DbClass.Rs.GetRows()
  DbClass.DestroyRs
  Dim iRecFirst, iRecLast
  iRecFirst = LBound(PersonalList, 2)
  iRecLast  = UBound(PersonalList, 2)
  Dim Record
  For Record = iRecFirst To iRecLast
    ShowForm = ShowForm & "<tr>"
    ShowForm = ShowForm & "<td>"&PersonalList(0,Record)&"</td>"
    ShowForm = ShowForm & "<td>"&PersonalList(1,Record)&"</td>"
    ShowForm = ShowForm & "<td>"&PersonalList(2,Record)&"</td>"
    ShowForm = ShowForm & "<td>"&DbClass.FixDate(PersonalList(3,Record),1)&"</td>"
    ShowForm = ShowForm & "<td><a href=""../PafjJ7dJeoKs93HsdxQu/Enter.asp?m=personal&a=edit&id="&PersonalList(0,Record)&""">Rediger</a> |"
    ShowForm = ShowForm & "<a href=""../PafjJ7dJeoKs93HsdxQu/Enter.asp?m=personal&a=del&id="&PersonalList(0,Record)&""">Slet</a></td>"
    ShowForm = ShowForm & "</tr>"
  Next
Else
  ShowForm = ShowForm & "<tr>"
  ShowForm = ShowForm & "<td colspan=""5"">Der er ikke oprettet nogen team medlemmer endnu !</td>"
  ShowForm = ShowForm & "</tr>"
End If

Og det er denne linie fejlen opstår :

ShowForm = ShowForm & "<td>"&PersonalList(0,Record)&"</td>"

Jeg har kun en record i databasen men jeg køre samme kode på andre sider hvor der ikke er nogle problemer. Jeg har prøvet at udskrive iRecFirst og iRecLast og det giver 0, 0 hvilket oxo er rigtigt. Hvad går der galt ?

/Websam

/Websam