Visual Basic.NET - Llenar Datagridview sin clases ni modulos

Imports System.Data.SQLite

Public Class Form1

    Dim cadena As String = "Data Source=MiBase.db;Version=3;"

    Dim conn As New SQLiteConnection

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'este es mi boton conectar

        conn = New SQLiteConnection(cadena)

        Try

            conn.Open()

            MsgBox("conexion exitosa", MsgBoxStyle.Information, "CONECTADO")

        Catch ex As Exception

            MsgBox("no se pudo conectar por", ex.ToString)

        End Try

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'este es mi boton buscar

        Dim DA As New SQLiteDataAdapter("SELECT * FROM Usuario", conn)

        Dim DT As New DataTable

        DA.Fill(DT)

        DataGridView1.DataSource = DT

    End Sub

End Class

Dim buscar As String

buscar = TextBox1.Text

SELECT * FROM Usuario WHERE nombres = buscar

SELECT * FROM Usuario WHERE nombres = buscar

"SELECT * FROM Usuario WHERE nombres = '" & buscar & "'"

dim dv as dataview

DataGridView1.DataSource = DT

dv=dt.DefaultView

DataGridView1.DataSource = dv

dv.rowfilter="nombreColumna like '%" & txtbuscar.text & "%'"