C_TEXT($tSQL)

$tSQL:="SELECT CompanyID,Type,Functions,Company_Name FROM Company"
$iResult:=ODBC_SQLAllocConnect ($iConnID)
$iResult:=ODBC_SQLConnect ($iConnID;$tDataSource;$tUName;$tPswd)
$iResult:=ODBC_SQLAllocStmt ($iConnID;$iStmtID)
$iResult:=ODBC_SQLPrepare ($iStmtID;$tSQL)
$iResult:=ODBC_SQLExecute ($iStmtID)
$iResult:=ODBC_SQLBindCol ($iStmtID;1;->[Company]CompanyID)
$iResult:=ODBC_SQLBindCol ($iStmtID;2;->[Company]Type)
$iResult:=ODBC_SQLBindCol ($iStmtID;3;->[Company]Functions)
$iResult:=ODBC_SQLBindCol ($iStmtID;4;->[Company]Company_Name)

While (($iResult#SQL_NO_DATA ) & ($iResult#SQL_ERROR ))

CREATE RECORD([Company])

$iResult:=ODBC_SQLFetch ($iStmtID)

If (($iResult#SQL_NO_DATA ) & ($iResult#SQL_ERROR ))

SAVE RECORD([Company])

End if 

End while