Visual Basic - ejemplo de la pregunta de abajo

Aqui tienen un ejemplo completo!!!
ojala que me puedan ayudar
Private Sub cmdregistrar_Click()
If (cmbcve_esc_al.Text <> "" And txtmatricula_al.Text <> "") Then
With Ado_halumnos
.RecordSource = "select * from alumnos where cve_esc = '" & Trim(cmbcve_esc_al.Text) & "' and matricula = '" & Trim(txtmatricula_al.Text) & "'"
.Refresh
.Recordset.AddNew
If .Recordset.RecordCount < 1 Then
If DTPicker2.Year - 6 < DTPicker1.Year Then
.Recordset!f_nacimiento = Trim(DTPicker1.Value)
Else
MsgBox "Vuelva a escribir la edad", vbCritical, "Fecha de nacimiento no valida"
DTPicker1.SetFocus
DTPicker1.se
End If
.Recordset!cve_esc = Trim(cmbcve_esc_al.Text)
.Recordset!grado = Trim(txtgrado_al.Text)
.Recordset!grupo = Trim(txtgrupo_al.Text)
.Recordset!turno = Trim(cmbturno_al.Text)
etc etc