Public ConBD As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\ProyectoCurso.accdb")

 ConBD.Open()
        Dim Cmd As New OleDbCommand("Select NombreAlumno From Local", ConBD)

        Dim DA As New OleDbDataAdapter(Cmd)
        Dim Ds As New DataSet

        Try
            Ds.Tables.Clear()
            DA.Fill(Ds)
            DGVM.DataSource = Ds.Tables(0)

        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try