LPARAMETERS luseCursorSchema, lNoData, nOptions, Source TRY lWasError = .F. WAIT WINDOW NOWAIT "Connecting to SQL-Server via ADO..." local loConnDataSource set multilocks on loConnDataSource = createobject('ADODB.Connection') loConnDataSource.ConnectionString = [Provider=ADsDSOObject;Password=mypassword;User ID=myuser;Encrypt Passw] + ; [ord=True;Data Source="LDAP://server.domain.com/dc=domain,dc=com";Mode=Read;Bind] + ; [ Flags=0;ADSI Flag=-2147483648;] loConnDataSource.Open() This.DataSource = createobject('ADODB.RecordSet') This.DataSource.CursorLocation = 3 && adUseClient This.DataSource.LockType = 3 && adLockOptimistic This.DataSource.ActiveConnection = loConnDataSource This.SelectCmd = [select distinguishedname, sn, givenname, employeeid from 'LDAP://server.domain.com/dc=domain,dc=com' where objectCategory='Person' and objectClass='User' and sn='*'] WAIT CLEAR CATCH WAIT CLEAR lWasError = .T. ENDTRY IF lWasError RETURN .F. ELSE return dodefault(.T., lNoData, nOptions, loConnDataSource) ENDIFIt still seems to disregard my schema and I wind up with all memo fields.