ThisForm.oConn = createobject("ADODB.connection") ThisForm.oRecordSet = CREATEOBJECT("ADODB.RecordSet") WITH oRecordSet .ActiveConnection = oConnection .CursorType = adOpenStatic .LockType = iLockMode .CursorLocation = adUseClient .Open(tablename) ENDWITHThen in the ControlSource of the controls:
ThisForm.oRecordSet.Fields("fieldname").Value