Form1.Show
[COLOR="Red"]AddTable ("Form1", "TableView", 30, 30, 200, 200)[/COLOR]
Con.New1
Cmd.New1("",con.Value)
Con.Open("Data Source = " & AppPath & "\Northwind.sl3")
cmd.CommandText="CREATE TABLE if not exists table1 (col1,col2)"
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)
cmd.ExecuteNonQuery
Next
Con.EndTransaction
[COLOR="Red"]cmd.CommandText="select * from table1"
cmd.ExecuteTable("TableView",0)
[/COLOR]Con.Close
cmd.Dispose
Con.Dispose