|
Public Function CreateADORecordset() as adodb.recordset
Dim rsData as adodb.recordset set rsData= new adodb.recordset rsData.Fields.Append "ID", adInteger, 10, adFldUpdatable rsData.Fields.Append "Name", adVarChar, 50, adFldUpdatable rsData.Fields.Append "Age", adInteger, 3, adFldUpdatable rsData.open set CreateADORecordset=rsData End Function |