![Çözüldü](images/icons/cozuldu.png)
Hocam; ADO ile ilgili bir çok örnek inceledim ancak bir türlü başaramadım. Benim örnekte veya başka bir örnekte 2 tane veri ile de olsa bir örnek olursa gerisini çözeceğimi düşünüyorum. Eğer böyle bir örnek verirseniz sevinirin
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