// by index dim r as PreparedSQLStatement = db.Prepare("Insert into test_tbl(fid, fvarchar20) values(:1, :2)") r.BindType(0, SQLPreparedStatementMBS.kTypeLong) r.BindType(1, SQLPreparedStatementMBS.kTypeString) r.SQLExecute 12345, "Hello World by index" // by name dim sql as string = "Insert into test_tbl(fid, fvarchar20) values(:fid, :fvarchar20)" dim v as Variant = db.Prepare(sql) dim p as SQLPreparedStatementMBS = v p.BindType("fid", SQLPreparedStatementMBS.kTypeLong) p.BindType("fvarchar20", SQLPreparedStatementMBS.kTypeString) p.Bind("fid", 2345) p.Bind("fvarchar20", "Hello World by name") p.SQLExecute