int rec_no=0 hstmt = dbExecSQL(pdb,"SELECT MAX(recno) AS rec_no FROM author") IF LEN(dbGetErrorCode(hstmt)) PRINT "Error Text: ", dbGetErrorText(hstmt) endif IF hStmt dbGetData(hstmt,1,rec_no) dbFreeSQL(hstmt) endif