Hvorfor denne fejl ?

jeg få følgende fejl :

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

På følgende kode :

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

Linie 32 er denne linie :

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

/Websam