Run time Error 91

Run time error 91, på denne stykke kode


Private Sub Form_Load()

  Dim fID(249) As String
  Dim fnavn(249) As String
  Dim ftlf(249) As String
  Dim taeller As Integer
  fnavnlist.Clear
  ftlflist.Clear
  t = 1
  Do While FirmaT.Recordset.EOF = False
 
    fnavn(t) = FirmaT.Recordset("FirmaNavn")
    fnavnlist.AddItem fnavn, t
    ftlf(t) = FirmaT.Recordset("FirmaTlf")
    ftlflist.AddItem ftlf, t
   
    fID(t) = FirmaT.Recordset("ID")
        t = t + 1
    FirmaT.Recordset.MoveNext
  Loop
  FirmaT.Recordset.MoveFirst
End Sub