Selecting .Mdb Database File To Open I Vb2010 With Oledb, For Chart.

See more:

VBA

Hi. Im trying to make a program (vb2010) that can connect to a selected .mdb database and draw a chart based on the data in it. The idea is to be able to selct which file to open, and draw a chart based on what data is in it. Currently i am able to save the path to the db as a string, but i have problems saving the content of the db (don't know if i have to) and link it to the charts datasource. I've followed some tutorials but they dont seem to answe my question. I do not have MS Access ,so i cant drag and drop skeletons (or whatever they are called) into my code.

Can any1 plz help?

this is my database:




This is my code so far

Imports System.Data.OleDb


Public Class Form1

    Dim connString As String
    Dim dbConn As OleDbConnection
    Dim dbComm As OleDbCommand
    Dim dbDataSet As DataSet
    Dim dbDataAdapter As OleDbDataAdapter
    Dim dbDataReader As OleDbDataReader
    Dim tab1 As DataTable

    Dim Item(2) As String



    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        openFD.InitialDirectory = "C:\"
        openFD.Title = "Open a .mdb database"
        openFD.Filter = ".mdb |*.mdb"
        openFD.ShowDialog()

        connString = openFD.FileName
        TextBox1.Text = connString

        ''''''''''''
        Dim Table_ As String = "Table1"
        Dim query As String = "SELECT * FROM " & Table_
        Dim MDBConnString_ As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=connString;"
       
        dbConn = New OleDbConnection(MDBConnString_)

        dbConn.Open()
        dbComm = New OleDbCommand(query, dbConn)
        dbDataAdapter = New OleDbDataAdapter(dbComm)
        dbDataAdapter.Fill(dbDataSet, Table_)
        dbConn.Close()

        tab1 = dbDataSet.Tables(Table_)
        Dim row As DataRow

        For Each row In tab1.Rows
            Item(0) = row(0)
            Item(1) = row(1)
            Dim NextListItem As New ListViewItem(Item)



        Next


    End Sub

    Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub openFD_FileOk(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Handles openFD.FileOk

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Chart1.DataSource = tab1
    End Sub
End Class