parameters calias,lorst if used(calias) select (calias) use endif talias="CA"+sys(2015) try ocursoradapter = createobject("CursorAdapter") ocursoradapter.alias=talias ocursoradapter.allowdelete = .t. ocursoradapter.allowinsert = .t. ocursoradapter.allowupdate = .t. ocursoradapter.datasourcetype="ADO" ocursoradapter.cursorfill(,,,lorst) ocursoradapter.cursordetach() catch to loerror messagebox(loerror.message) endtry select * from (talias) into cursor (calias) readwrite select (talias) use