On Error Resume Next
Call Kayit
HataBul (err.Number)
'----------------------------------
'
'----------------------------------
Dim rs As New ADODB.Recordset
rs.Open "T200_rehberlikgorusme", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
rs.AddNew
rs.Fields("ogretmen") = Me.ogretmen.Column(0)
rs.Update
rs.Close
burada sadece Öğretmen adını tabloya kaydediyor. Eğer istediğiniz bu ise diğer istediğiniz alanları örnekteki gibi düzenleyebilirsiniz.