OpenDBNoBound

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
Returns:
rsData - adodb.recordset

Assumes:
The length of the fields you append must correspond to
the structure you define for the recordset