<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
  Dim Mydb As New Tornado.z
  With Mydb
    .dbQP = "U=6| S=France| D=nwind| ni=none|th=Ti=Grid Filter Mode With LookUp"
    .dbMode = "Ty=Grid| FilterStart=t"
    .dbSQL = "SELECT OrderID, CustomerID, Freight From Orders"
    .dbCommonTables = "Index=CID| Q=Select DISTINCT CustomerID From Orders"
    .dbFilterFlds = "Fi=CustomerId| Ty=SB| Val=CID"
    .dbOptions = "Dropfirst=[Select an Item]"
    .ASPdbNET()
  End With
End Sub
</script>