How to open an access database and populate datagrid view in VB.NET

        Dim con As New OleDb.OleDbConnection
        Dim ds As New DataSet
        Dim da As OleDb.OleDbDataAdapter
        Dim sql As String
        Dim maxrow As Integer
        Dim x As Integer


        con.ConnectionString = "PROVIDER=Microsoft.jet.oledb.4.0;data Source = C:\your db.mdb"
        sql = "SELECT * FROM PC_database"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "your db")
        con.Close()

        maxrow = ds.Tables("your db").Rows.Count