Sub Page_Load(Src As Object, E As EventArgs)
'连接数据库
    Dim myConnection As SqlConnection = New SqlConnection( conn )
    myConnection.Open()
    Dim strSQL1 As String = "SQL语句"
    Dim myAdapter As New SqlDataAdapter(strSQL1,myConnection)
    Dim myDataSet As New DataSet()
    myAdapter.Fill(myDataSet,"dt")
    Dim row As DataRow
    Dim aaa As Integer
    For Each row in myDataSet.Tables("dt").Rows
        a=row("所需数据")
    Next
    myConnection.Close()
　　　　 textbox1.text=aaa
End Sub