Sorry your browser is not supported!

R=ODBC CONNECT(1, "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\nwind.mdb;Uid=Admin;Pwd=;") 
					// download it http://www.microsoft.com/downloads/en/details.aspx?FamilyID=c6661372-8dbe-422b-8676-c632d66c529c
R=ODBC EXECSQL(1, "SELECT ProductID,ProductName,UnitPrice FROM Products WHERE ProductID<20")
WHILE ODBC FETCHROW(1) = 0
	id = ODBC GETVALUE(1,1) // String
	name$ = ODBC GETVALUE$(1,2) // Float
	price# = ODBC GETVALUE#(1,3)  // Integer
	PRINT id, "  ", name$, "  ", STR$(price#,2)+"$"
ENDWHILE
ODBC FREEDATA 1
ODBC DISCONNECT 1

WAIT KEY

ODBC FREEDATA server_num
ODBC DISCONNECT server_num
ODBC CONNECT(server_num, connection_string$)
ODBC CONNECTED(server_num)
ODBC FIND FREE()
ODBC EXECSQL(server_num,sql$)
ODBC FETCHROW(server_num)
ODBC ROWCOUNT(server_num)
ODBC GETVALUE$(server_num, col_num)
ODBC GETVALUE#(server_num, col_num)
ODBC GETVALUE(server_num, col_num)
ODBC ERROR$(server_num)