كيف افتح اتصال بقاعدة بيانات بالكود ومليء Gridview بالاستعلام

Dim m As String

Dim connString As String = ConfigurationManager.ConnectionStrings("bwabah4arabConnectionString").ConnectionString

'نقوم بالإتصال بالداتا بيس

Using myConnection As New SqlConnection(connString)

Const sql As String = "SELECT * FROM flash WHERE ID = '" & TextBox2.Text & "'"

'نقوم بتنفيذ أمر الـ query

Dim myCommand As New SqlCommand(sql, myConnection)

'هنا نقوم بإنشاء DataSet

Dim myDataSet As New DataSet

Dim myAdapter As New SqlDataAdapter(myCommand)

myAdapter.Fill(myDataSet)

myConnection.Open()

myConnection.Close()

Page.Response.Write("god")

End Using

TextBox2.Text = ""

Page.Response.Write(Request("ID"))

' طباعة(ID)

Page.Response.Write(Request("ID"))

'Page.Response.Write(Request("url"))

End Sub