CONEXION

    Dim cnn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrador\Mis documentos\hola.mdb; User Id=admin;Password=;")

    Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM Alumno", cnn)

    Dim ac As New OleDb.OleDbCommandBuilder(da)

    Dim ds As New DataSet

    Dim nuevo As DataRow

        da.Fill(ds)

        DataGridview1.DataSource = ds.Tables(0)

codigo boton guardar

Dim usuario As String

        Dim contraseña As String

        Dim nivel As String

        Dim rw As DataRow

        rw = ds.Tables(0).NewRow

        usuario = TextBox1.Text

        contraseña = TextBox2.Text

        nivel = TextBox3.Text

        rw.Item("Usuario") = usuario

        rw.Item("Contraseña") = contraseña

        rw.Item("Nivel") = nivel

        ds.Tables(0).Rows.Add(rw)