如何使用ListBox将查询结果加载到GridView中？

Question

我正在尝试使用一小段代码，以便我可以单击ListBox中的项目（字段名称为“ReportName”）并从SQL Server中的表中提取SQL（字段名称）是'SQLScript'）。您可以在下面的屏幕截图中看到我的设置。这里重要的是我想把SQL从SQL Server中的表中拉到VB中，这样我就可以对SQL脚本进行两​​处小改动，然后将它传递给GridView。我必须在SQL脚本中替换两个日期，我在VB中选择了两个日期。我希望这很清楚！

这是我正在玩的代码。

Try
        Dim strSql As String = "Select ReportName, SQLScript from Table_1"
        Dim Connstr As String = ""
        Dim SqlConn As SqlConnection = New SqlConnection("Data Source=EXCEL-PC\SQLEXPRESS;Initial Catalog=Test;Integrated Security=True")
        Dim SqlDA As SqlDataAdapter
        Dim DS As DataSet
        With SqlConn
            .Open()
            SqlDA = New SqlDataAdapter(strSql, SqlConn)
            DS = New DataSet
            SqlDA.Fill(DS, "Table_1")
            With Me.ListBox1
                .DisplayMember = "ReportName"
                .ValueMember = "SQLScript"
                .DataSource = DS.Tables("Table_1")
            End With

            DataGridView1.DataSource = DS.Tables(0)

        End With
    Catch ex As Exception
        MessageBox.Show(ex.ToString)
    Finally
    End Try

这就是我得到的。

这就是我想看到的。