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)