```vb.net
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If TextBox2.Text Or TextBox2.Text = Nothing Then
MessageBox.Show("输入不能为空!")
Else
Dim com As Microsoft.Data.Sqlite.SqliteConnection = New Microsoft.Data.Sqlite.SqliteConnection()
com.ConnectionString = "d:\nhg\sy.db"
com.Open()
Dim rq1 As String = TextBox2.Text
Dim rq2 As String = TextBox3.Text
Dim sql As String = "select sum(sy) from nhk where rq>'" + rq1 + "' and rq<='" + rq2 + "'"
Dim com_m As New Microsoft.Data.Sqlite.SqliteCommand(sql, com)
Dim dr As Microsoft.Data.Sqlite
dr = com_m.ExecuteNonQuery()
Dim dt As DataTable = New DataTable()
dt.Load(dr)
DataGridView1.DataSource = dt
com.Close()
End If
End Sub
End Class
在这给代码中,貌似查询结果无法导出到插件。
请问怎么处理这个呢?