Imports System.Data
Imports System.Data.OleDb



Public Class Form1
    Private Sub cmdImport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdImport.Click
        Dim myConn As New OleDbConnection



        myConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Emanuele Mignosa\Desktop\ALTRO\db4.mdb;"
        myConn.Open()
        Dim myCMD As New OleDbCommand
        myCMD.CommandText = "SELECT '" & Me.TextBox4.Text.Trim & "'FROM inventoryTable"
        myCMD.Connection = myConn
        Dim myAdapter As New OleDbDataAdapter
        myAdapter.SelectCommand = myCMD
        Dim ds1 As New DataSet
        ds1.Clear()
        myAdapter.Fill(ds1, "inventoryTable")
        dgvData.DataSource = ds1
        dgvData.DataMember = "inventoryTable"
      

    End Sub
End Class