Заполнение DGV

Public Class FrmMain
    Public con As Npgsql.NpgsqlConnection
    Public ConString As String
    Private Sub FrmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        With CmbVision
            .Items.Add("Все")
            .Items.Add("Выполненные")
            .Items.Add("Не выполненные")
        End With
 
        Select Case CmbVision.Text
            Case "Все"
                ConString = "SERVER=192.168.92.202;PORT=5432; USER ID=******; PASSWORD=*********!; DATABASE=divisions"
                con = New Npgsql.NpgsqlConnection(ConString)
                con.Open()
                Dim sqlstr As New Npgsql.NpgsqlCommand("select * from mfc_problems", con)
                'Dim cmd As Npgsql.NpgsqlCommand = New Npgsql.NpgsqlCommand(sqlstr, con)
                Dim DA As Npgsql.NpgsqlDataAdapter
                Dim DT As New Data.DataTable
                DA = New Npgsql.NpgsqlDataAdapter(sqlstr)
                DA.Fill(DT)
                DGV1.DataSource = (DT)
        End Select
 
    End Sub
End Class

Npgsql.NpgsqlCommand.ExecuteNonQuery()

da.SelectCommand = New SQLiteCommand("Select * FROM [Группы_освещ] ", cn)
        da.SelectCommand.ExecuteNonQuery()
        dt2.Clear()
        da.Fill(dt2)
        Grid2.DataSource = dt2