CLOSE DATABASES all SET MULTILOCKS ON CREATE CURSOR foo (f1 I) CREATE CURSOR bar (f2 I) ?AUSED(aU) && prints 2 LOCAL oConn as ADODB.Connection, oRS as ADODB.Recordset oConn=CREATEOBJECT("ADODB.Connection") oConn.Open("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=(local)") oRS=oConn.Execute("SELECT * FROM Northwind..Customers") LOCAL oCA as CursorAdapter oCA = Createobject("cursoradapter") cAlias = "TREATMENT" oCA.DataSourceType="ADO" oCA.Alias=cAlias oCA.CursorFill(.F.,.F.,0,oRS) oCA.CursorDetach() Release oCA Release oRS ?AUSED(aU) && prints 3Thanks,