lnconnect = SQLSTRINGCONNECT("dsn=sql server; uid=uid; pwd=pwd") IF lnConnect > 0 SELECT currentTable go top SCAN lcstring = "INSERT INTO newTable (empno) Values (currentTable.empno) lnExec = sqlexec(lnconnect,lcstring) IF lnExec < 0 && did not succeed =AERROR(laerror) ENDIF ENDSCAN ELSE =AERROR(laerror) FOR N = 1 TO 7 && display all elements of the array ? laerror(N) ENDFOR RETURN ENDIF =sqldisconnect(lnconnect)