sqlite搜索结果没办法导入vb.net

Question

```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

在这给代码中，貌似查询结果无法导出到插件。

请问怎么处理这个呢？

Answer 1

SqliteCommand.ExecuteNonQuery Method返回的是插入、更新或删除的行数，类型为Int32。
要获取数据，用SqliteDataAdapter().

Dim da As New SqliteDataAdapter(com_m)
Dim dt As New DataTable()
da.Fill(dt)