Search access DB and display all data found in grid view VB.NET

See more:

VB

Gridview

MS-Access

I wish to create a userform in VB NET, that has a single textbox that I can put in a string in the format "AAA00 AA000" (this is in my second column) TO then use a button to search access database and return all data relating to that number and display in gridview on the same form.

my headings will be defined by the first row of my DB

Can anyone point me in the right direction, ive done some programming in vb with excel but this is my first project in vb via visual studio

Thanks izzy

What I have tried:

Imports System.Data.OleDb
Public Class Form1

    'Change "C:\Users\Jimmy\Documents\Merchandise.accdb" to your database location
    Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\IzzyM\Desktop\Engie\KKS\KKS Maintenance Tool.accdb"
    Dim MyConn As OleDbConnection
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    Dim tables As DataTableCollection
    Dim source1 As New BindingSource
    Dim provider As String
    Dim dataFile As String
    Public myConnection As OleDbConnection = New OleDbConnection
    Public dr As OleDbDataReader

    'Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    'MyConn = New OleDbConnection
    'MyConn.ConnectionString = connString
    'ds = New DataSet
    'tables = ds.Tables
    'da = New OleDbDataAdapter("Select * from [EWH INSTRUMENT KKS]", MyConn) 'Change items to your database name
    'da.Fill(ds, "items") 'Change items to your database name
    'Dim view As New DataView(tables(0))
    'source1.DataSource = view
    'DataGridView1.DataSource = view
    'End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim connstring As String
        provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="
        dataFile = "C:\Users\IzzyM\Desktop\Engie\KKS\KKS Maintenance Tool.accdb" ' Change it to your Access Database location
        connString = provider & dataFile
        myConnection.ConnectionString = connString
    End Sub
    Private Sub Button1_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FindButton.Click
        myConnection.Open()
        DescriptionText.Clear()
        CostText.Clear()
        PriceText.Clear()
        Dim str As String
        str = "SELECT * FROM Items WHERE (Code = '" & CodeText.Text & "')"
        Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)
        dr = cmd.ExecuteReader
        While dr.Read()
            DescriptionText.Text = dr("Description").ToString
            CostText.Text = dr("Cost").ToString
            PriceText.Text = dr("Price").ToString
        End While
        myConnection.Close()
    End Sub

End Class