you should ask this question in VB BBS, but try something likeset rs = CreateObject("ADODB.Recordset")
With rs
.Fields.Append "ID", 3, 4
.Fields.Append "Text", 200, 50
End Withrs.Openrs.AddNew
rs("ID") = 1
rs("Text") = "456"rs.AddNew
rs("ID") = 2
rs("Text") = "789"msgbox rs.recordcountfor n=0 to rs.fields.count - 1
msgbox rs.fields(n).name
next
With rs
.Fields.Append "ID", 3, 4
.Fields.Append "Text", 200, 50
End Withrs.Openrs.AddNew
rs("ID") = 1
rs("Text") = "456"rs.AddNew
rs("ID") = 2
rs("Text") = "789"msgbox rs.recordcountfor n=0 to rs.fields.count - 1
msgbox rs.fields(n).name
next
有帮助!