include "C:\scriptbasic\include\odbc.bas"
dbh = odbc::RealConnect("DSN","user","password")
odbc::query(dbh,"SELECT * FROM bible WHERE word_name LIKE 'am%'")
WHILE odbc::FetchHash(dbh,column)
PRINT LEFT(column{"word_name"} & STRING(30," "),30),column{"word_count"},"\n"
WEND
odbc::Close(dbh)