用vb语言实现能够点击窗体对应按钮即可查询表中对应信息

可以按照以下步骤来实现：

1. 创建一个Windows窗体应用程序，添加一个Button和一个DataGridView控件。

2. 在窗体的Load事件中，连接到数据库并向DataGridView控件中加载表中的数据。

3. 在Button的Click事件中，获取用户输入的查询条件，并使用SQL查询语句查询表中符合条件的数据。

4. 将查询结果绑定到DataGridView控件中。

下面是一个简单的示例代码：

Public Class Form1
    Dim connString As String = "Data Source=(local);Initial Catalog=DatabaseName;Integrated Security=True"
    Dim conn As New SqlConnection(connString)
    Dim cmd As New SqlCommand()
    Dim da As New SqlDataAdapter()
    Dim ds As New DataSet()

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '连接数据库，加载数据到DataGridView控件
        conn.Open()
        cmd.Connection = conn
        cmd.CommandText = "SELECT * FROM TableName"
        da.SelectCommand = cmd
        da.Fill(ds, "TableName")
        DataGridView1.DataSource = ds.Tables("TableName")
        conn.Close()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '执行查询操作
        conn.Open()
        cmd.CommandText = "SELECT * FROM TableName WHERE ColumnName='" & TextBox1.Text & "'"
        da.SelectCommand = cmd
        ds.Clear()
        da.Fill(ds, "TableName")
        DataGridView1.DataSource = ds.Tables("TableName")
        conn.Close()
    End Sub
End Class

在上面的代码中，需要将`DatabaseName`替换为实际的数据库名称，`TableName`替换为实际的表名，`ColumnName`替换为实际的列名。同时，需要将TextBox1替换为实际的输入框控件名称。