http://www.microsoft.com/china/MSDN/library/data/dataAccess/USdnhcvb04vb04h4.mspx?mfr=true
Dim RecordSet_Test As ADODB.Recordset
Set RecordSet_Test = New ADODB.Recordset
RecordSet_Test.CursorLocation = 3 'adUseClient
RecordSet_Test.CursorType = 3 'adStatic
RecordSet_Test.LockType = adLockBatchOptimistic
'Add a few fields
With RecordSet_Test.Fields
.Append "LastName", adVarChar, 40, adFldIsNullable
.Append "FirstName", adVarChar, 40, adFldIsNullable
.Append "HireDate", adDate
End With
RecordSet_Test.Open