Sub Page_Load(Src As Object, E As EventArgs)
  Dim Mydb As New Tornado.z
  With Mydb
    .dbQP = "U=6| S=Moon| D=nwind| ni=none|th=Ti=Grid Filter Mode"
    .dbMode = "Ty=Grid| FilterStart=t"
    .dbSQL = "SELECT OrderID, CustomerID, Freight From Orders"
    .ASPdbNET()
  End With
End Sub