Loading datagridview with data from SQL

    Private Sub loaddatagrid()
        Dim con As New OleDb.OleDbConnection
        Dim ds As New DataSet
        Dim da As OleDb.OleDbDataAdapter
        Dim sql As String
        Dim appath As String

        appath = Application.StartupPath()

        con.ConnectionString = "PROVIDER=Microsoft.jet.oledb.4.0;data Source = " & appath & "\SISdatabase.mdb"
        sql = "SELECT * FROM Item_Inventory"
        da = New OleDb.OleDbDataAdapter(sql, con)
        con.Open()
        da.Fill(ds, "SISdatabase")


        DataGridView1.DataSource = ds.Tables(0)
        con.Close()
    End Sub