Base de Datos "Registar Alumnos"

Global db As Database
Global tabla As Recordset
Private Sub Command1_Click()
tabla.AddNew
tabla!NOMBRE = UCase(Text1)
tabla!SEMESTRE = Combo2
tabla!GRUPO = Combo3
tabla!MATERIA = Combo4
tabla!CALIFICACION = UCase(Text2)
tabla!CARRERA = Combo1
tabla.Update
MsgBox "REGISTRADO"
limpia
Beep
End Sub
Private Sub Form_Load()
Set db = OpenDatabase("G:\REGISTROALUMNOS\base de datos.mdb")
Set tabla = db.OpenRecordset("ALUMNOS")
End Sub
Sub limpia()
Text1 = ""
Text2 = ""
Combo1 = ""
Combo2 = ""
Combo3 = ""
Combo4 = ""
End Sub