Dim cnn As ADODB.Connection
Dim rs As ADODB.RecordsetSet cnn = New ADODB.Connection
Set rs = New ADODB.Recordsetcnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\adocppobj\adocppobj\db.mdb;Persist Security Info=False"
rs.CursorLocation = adUseClient
rs.Open "select * from tb", cnn, adOpenDynamic, adLockPessimistic
Dim fds As ADODB.Fields
Set fds = rs.Fields
fds.Append "fff", adDouble, 100
 
rs.AddNew
rs.Fields(0).Value = 222
rs.Fields(1).Value = 222
rs.Updatevb的代码, 这段有错误,就是如何给一个记录集合增加个字段?