Private rstResults As ADODB.Recordset Set rstResults = New ADODB.Recordset With rstResults .CursorLocation = adUseClient .LockType = adLockOptimistic .Fields.Append "ID", adChar, 6, adFldIsNullable .Fields.Append "Name", adChar, 37, adFldIsNullable .Fields.Append "Phone", adChar, 10, adFldIsNullable .Fields.Append "City", adChar, 30, adFldIsNullable .Fields.Append "State", adChar, 2, adFldIsNullable .Open End WithHTH,