：查询语句有关问题？

求助：：查询语句问题？？
Private   Sub   Button1_Click(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   Button1.Click
                Dim   strSQL   As   String
                strSQL   =   "select   *   from   表名 "
        End   Sub
这是我写入查询控件按纽中的代码，窗体通过Sqlconnection,Sqldataadapter,dataGrid连接，
想通过点击查询按纽在dataGrid控件中显示表中的所有内容。

现在点击按纽没有反应，调试没有语法错误。

请问如何修改，能让点击查询按纽有反应并且显示表中的所有内容。？？？？

[解决办法]
Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlClient

Public Class Form1

Dim conn As SqlConnection
Dim da As SqlDataAdapter
Dim ds As DataSet

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

End Sub

' 以下代码在点击按键时读取数据库，将数据显示在DataGridView1中
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
conn = New SqlConnection( "server=localhost;database=你的数据库名;uid=sa;password=; ")
conn.Open()
da = New SqlDataAdapter( "SELECT * FROM 表名 ", conn)
da.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
End Sub
End Class

这是基本代码，您要是看这段代码有很多问题，您应该马上停止写代码，去找本书看一下。您要是实在找不到书，或者不愿意看，那么追加100分，我可以给您讲讲，嘿嘿。