Advertisement
Advertisement
| 07.16.2008 at 10:58AM PDT, ID: 23570648 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: |
Public Sub Report_Open(Cancel As Integer)
Dim rs As Recordset
Set rs = New Recordset
rs.Fields.Append "myField", adChar, 255
rs.Open
'Add a row to the in-memory Recordset
rs.AddNew
rs("myField") = "Hey Joe"
rs.Update
Me.Recordset = rs
|