Array & Class - Object required

Jeg vil gerne have x antal objekter op i et array men jeg får fejlen Microsoft VBScript runtime error '800a01a8'

jeg henter data fra en database og koden ser sådanne ud.

IF NOT (rs.BOF OR rs.EOF) THEN
Array_Count = 0
  DO WHILE NOT (rs.BOF OR rs.EOF)
  Valg = "Godning" & Array_Count
  Dim Valg
  Set Valg = New Godning
    Valg.Idnumber = Rs("id")
    Valg.Vare = Rs("Vare")
    Valg.Vaegt = Round(Rs("Vaegt"),6)
    Valg.Pris = Round(Rs("Pris"))
    Valg.N = Round(Rs("N"),6)
    Valg.P = Round(Rs("P"),6)
    Valg.K = Round(Rs("K"),6)
    Valg.S = Round(Rs("S"),6)
    Valg.MG = Round(Rs("MG"),6)
    Valg.NA = Round(Rs("NA"),6)
  rs.MOVENEXT
    Array_Count = Array_Count + 1
  LOOP
END IF

Hvis jeg skriver værdierne manuelt eks.

    Godning1.Idnumber = 1
    Godning1.Vare = "Vare1"
    Godning1.Vaegt = Round(100.00,6)
    Godning1.Pris = Round(145.00,6)
    Godning1.N = Round(27.25,6)
    Godning1.P = Round(0,6)
    Godning1.K = Round(0,6)
    Godning1.S = Round(13,6)
    Godning1.MG = Round(12.7,6)
    Godning1.NA = Round(22.15,6)

osv. er der ingen problemer. Hvad gør jeg galt????