How to properly add new records to empty recordset manually?

Question

How to add new records to a new & empty ADODB.Recordset manually?

Right now, here\'s what I\'m doing that isn\'t working:

Dim rs as ADODB.Records         


        

Answer 1

set rs = new ADODB.Recordset
rs.Open "Select SomeFieldName, AnotherFieldName FROM MyTable", myConnection, adOpenDynamic, adLockOptimistic

rs.AddNew
rs("SomeFieldName").Value = "SomeValue"
rs("AnotherFieldName").Value = 1
rs.Update

rs.AddNew
rs("SomeFieldName").Value = "AnotherValue"
rs("AnotherFieldName").Value = 2
rs.Update

rs.Close