Netbeans Act 1

Dim midata As Database
Dim mirst As Recordset

Private Sub cmdAgregar_Click()
Set midata = OpenDatabase(App.Path & "escuela.mdb")
Set mirst = midata.OpenRecordset("alumnos")
Withmirst
.AddNew
!Matricula = txtMatricula.Text
!Nombre = txtNombre.Text
!Grupo = txtGrupo.Text
!Semestre = txtSemestre.Text
.Update
End With
CallcmdLimpiar_Click
End Sub

Private Sub cmdBuscar_Click()
Dim Encontrado As Boolean
Set midata = OpenDatabase(App.Path + "escuela.mdb")
Set mirst = midata.OpenRecordset("alumnos")mirst.MoveFirst
Do Until mirst.EOF
If txtMatricula.Text = mirst!Matricula Then
txtNombre.Text = mirst!Nombre
txtGrupo.Text = mirst!Grupo
txtSemestre.Text =mirst!Semestre
Encontrado = True
End If
mirst.MoveNext
Loop
If Encontrado = False Then
MsgBox "No se encontro el registro", vbOKOnly + vbCritical, "Error"
End If
EndSub
Private Sub cmdEliminar_Click()
Dim Encontrado As Boolean
Set midata = OpenDatabase(App.Path + "escuela.mdb")NOMBRE BASE DATOS
Set mirst = midata.OpenRecordset("alumnos") NOMBRE TABLAmirst.MoveFirst
Do Until mirst.EOF
If txtMatricula.Text = mirst!Matricula Then

mirst.Delete
Encontrado = True
End If
mirst.MoveNext
Loop
IfEncontrado = True Then
MsgBox "El registro fue eliminado", vbOKOnly, "Registro"
Else
MsgBox "No se encontro el registro", vbOKOnly + vbCritical, "Error"
End If
CallcmdLimpiar_Click
End Sub

Private Sub cmdLimpiar_Click()
txtMatricula.Text = ""
txtNombre.Text = ""
txtGrupo.Text = ""
txtSemestre.Text = ""
End Sub

Private Sub cmdModificar_Click()Set midata = OpenDatabase("App.Path& “PRODUCTOS.mdb")
Set mirst = midata.OpenRecordset("alumnos")
mirst.MoveFirst
Do Until mirst.EOF
If txtMatricula.Text = mirst!Matricula Then...