Sub Page_Load(Src As Object, E As EventArgs)
  Dim Mydb As New Tornado.z
  With Mydb
    .dbQP = "U=6| S=England| D=nwind| ni=b5,Update,Delete| Bm=orders;0| th=Ti=Grid RowEdit Mode"
    .dbMode = "Ty=Grid| RowEdit=true"
    .dbEditUpdateFlds = "Freight"
    .dbSQL = "SELECT OrderID, CustomerID, Freight From Orders"
    .ASPdbNET()
  End With
End Sub