Sub Globals
'Declare the global variables here.
End Sub
Sub App_Start
Con.New1
Cmd.New1("",con.Value)
Con.Open("Data Source = " & AppPath & "\Northwind.sl3")
Text="CREATE TABLE if not exists table1 (col1,col2)"
cmd.CommandText=Text
cmd.ExecuteNonQuery
cmd.AddParameter("value1")
cmd.AddParameter("value2")
cmd.CommandText = "INSERT INTO [table1] (col1,col2) VALUES (@value1,@value2)"
Con.BeginTransaction
cmd.SetParameter("value2","SomeValue")
For i = 0 To 10
cmd.SetParameter("value1",i * 2)
cmd.ExecuteNonQuery
Next
Con.EndTransaction
Con.Close
End Sub