Sorry. I took that example:
-------------------------
Sub Globals
End Sub
-------------------------
Sub App_Start
Form1.Show
Con.New1
Reader.New1
Tree.New1("Form2", 5, 5, Form2.Width - 10, Form2.Height - 10)
Node.New1
Cmd.New1("",con.Value)
Con.Open("Data Source = " & AppPath & "\Northwind.sl3") 'Opens a connection with the database.
AddEvent("btnExecute",Click,"mnuExecute_Click") 'The button and the menu use the same sub.
End Sub
-------------------------
'Executes the SQL command
Sub mnuExecute_Click
cmd.CommandText = txtCommand.Text
'Executes the user query and fills the table with the result.
cmd.ExecuteTable("table1",500) 'Limits the number of rows to 500 (change to 0 for unlimited)
End Sub
-------------------------
Sub mnuShowScheme_Click
Form2.Show
End Sub
-------------------------
And I keep getting errors on:
Con.New1
Thanks 4 your help.
Regards