Sub Page_Load(Src As Object, E As EventArgs)
  Dim GD As New Tornado.GetData
  Dim Mydb As New Tornado.z
  With Mydb
    .dbQP = "U=4| S=Gold| Mode=Type=SBoxForm!SboxMacro=#0# - #1#|D=Nwind.Mdb| ni=none|Th=Title=SelectBox Form"
    .dbSQL = " Q=SELECT TOP 5 OrderID, CustomerID, Freight From Orders"
    .ASPdbNET()
  End With
End Sub