Public Class Form1
    Dim Con As New SQLite.SQLiteConnection("Data Source=" & My.Application.Info.DirectoryPath & "\Platej.db" & ";")
    Dim SqlCom As SQLite.SQLiteCommand ' Переменная для Sql запросов
    Dim DT As New Data.DataTable
    Dim DA As SQLite.SQLiteDataAdapter ' Адаптер для заполнения таблицы после запроса
    'Dim BSCounter As New BindingSource()
    Dim DS As New DataSet()


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


        DT.Clear() 'Очищаем таблицу
        SqlCom = New SQLite.SQLiteCommand("SELECT * FROM [Counter]", Con) ' Указываем строку запроса и привязываем к соединению
        Con.Open() ' Открываем соединение
        SqlCom.ExecuteNonQuery() 'Выполняем запрос
        DA = New SQLite.SQLiteDataAdapter(SqlCom) 'Через адаптер получаем результаты запроса
        ' DA.Fill(DT) ' Заполняем таблицу результатми
        DA.Fill(DS, "Counter")
        Dim BSCounter As New BindingSource(DS, "Counter")

        Me.DataGridView1.DataSource = BSCounter  ' Привязываем Грид к источнику данных
        TextBox1.DataBindings.Add("Text", BSCounter, "IdCounter")
        ' Закрываем соединение
        Con.Close()

    End Sub
End Class

 Dim SqlCom As SQLite.SQLiteCommand("SELECT * FROM [Counter]", Con)
        Dim sqReader As SQLiteDataReader = SqlCom.ExecuteReader()