Vill skapa ett eget Recordset och fylla det med data!

Följande kod fungerar för att skapa recordsetet men hur fyller jag på data i det?
Dim NewRs As ADODB.Recordset
Set NewRs = New ADODB.Recordset

NewRs.Fields.Append "Item_No", adVarChar, 8000, adFldMayBeNull
NewRs.Fields.Append "Order_Code", adVarChar, 8000, adFldMayBeNull
NewRs.Open

NewRs.Close

Jag har aldrig testat detta på ett egenskapat rs, men borde det inte vara såhär?

NewRs.Fields.Append "Item_No", adVarChar, 8000, adFldMayBeNull
NewRs.Fields.Append "Order_Code", adVarChar, 8000, adFldMayBeNull
NewRs.Open


NewRs.AddNew
NewRs.Fields("Item_No")="hej"
NewRs.Fields("Order_Code")="du"
NewRs.Update


/Johan

Kan oxå använda denna medtoden:
<code>
Dim Fields As variant

Fields = Array("Item_No", "Order_Code")

NewRs.AddNew Fields, Array("1", "001")
NewRs.AddNew Fields, Array("2", "002")
NewRs.AddNew Fields, Array("3", "003")
NewRs.AddNew Fields, Array("4", "004")
NewRs.AddNew Fields, Array("5", "005")


</code>
ÄR verkligen 8000 tenken nödvändigt???

Ja det fungerar bra!
Men jag lyckas inte få in fler värden än ett
EX:
Dim NewRs As ADODB.Recordset
Set NewRs = New ADODB.Recordset
NewRs.Fields.Append "Item_No", adVarChar, 8000, adFldMayBeNull
NewRs.Fields.Append "Order_Code", adVarChar, 8000, adFldMayBeNull
NewRs.Open

NewRs.AddNew
NewRs("Item_No") = "1"
NewRs.Update

NewRs.AddNew
NewRs("Item_No") = "2"
NewRs.Update

Får endast ut nr: 2
Vill alltså kunna fylla på recordsetet och sen köra en loop på det och på så vis få ut värdena!

Du befinner dig på sista posten. Göre en moveFirst innan loopen:

NewRs.MoveFirst
Do Until NewRs.EOF

NewRs.Move Next
Loop