Dim conn As OdbcConnection
        Dim connectionString As String
        Dim comm As OdbcCommand
        Dim dr As OdbcDataReader
        Dim sqlStr As String

        connectionString = "dsn=Encore50A;uid=;pwd=;"
        conn = New OdbcConnection(connectionString)
        sqlStr = "Select * from INVPRICE"

        conn.Open()
        comm = New OdbcCommand(sqlStr, conn)
        dr = comm.ExecuteReader()

        While (dr.Read())
            MsgBox(dr.GetValue(0).ToString())
        End While


        conn.Close()
        dr.Close()
        comm.Dispose()
        conn.Dispose()
    End Sub

Public Function CreateAccessDatabase( _
    ByVal DatabaseFullPath As String) As Boolean
        Dim bAns As Boolean
        Dim cat As New ADOX.Catalog()
        Try

            'Make sure the folder
            'provided in the path exists. If file name w/o path 
            'is  specified,  the database will be created in your
            'application folder.

            Dim sCreateString As String
            sCreateString = _
              "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
               DatabaseFullPath
            cat.Create(sCreateString)

            bAns = True

        Catch Excep As System.Runtime.InteropServices.COMException
            bAns = False
            'do whatever else you need to do here, log, 
            'msgbox etc.
        Finally
            cat = Nothing
        End Try
        Return bAns
    End Function

Dim cn As New OdbcConnection("dsn=Encore50A;uid=;pwd=;")
        Dim cmd As OdbcCommand
        Dim adp As OdbcDataAdapter
        Dim ds As New DataSet

        cn.Open()
        cmd = New OdbcCommand("select * from INVPRICE", cn)
        adp = New OdbcDataAdapter(cmd)
        adp.Fill(ds, "StockCode")

        Me.DataGridView1.DataSource = ds
        Me.DataGridView1.DataMember = "StockCode"
        'MsgBox(cn.State.ToString)
        cn.Close()