SQLCA.DBMS = "ODBC"
SQLCA..AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=firebird;UID=sysdba;PWD=masterkey'"
CONNECT Using sqlca;        

if sqlca.sqlcode <> 0 then  
    messagebox('',sqlca.sqlerrtext)
    return 
else 
    messagebox('','成功')
end if

PB可以连接多种数据库，可以自己选择，增删改查语句和SQL语句有点区别，像查询、删除，可以自己细细研究