Private Sub Button1_Click(ByVal sender As Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
        Dim test1 As New EURODataSetTableAdapters.Table1TableAdapter
        On Error Resume Next
 
        SSymbol = CType(test1.ScalarQuery(), String)
 
        'SSymbol = "ER2"
        SSecType = "FUT"
        SExpiry = "200709"
        SExchange = "GLOBEX"
        SCurency = "USD"
 
        With AxTws1
            .connect("", 7496, 4)
            .reqMktData(0, SSymbol, SSecType, SExpiry, 0, "", "", SExchange, _
              "", SCurency)
            End With
        Debug.Print(CStr(SSymbol))
    End Sub