omyCA = Createobject("CursorAdapter") **************** omyCA.Alias = "YourDesiredAliasName" **************** omyCA.DataSourceType="ADO" omyCA.CursorFill(,,,myRecordset)