ACCESS DE OLUŞTURULAN VERİ TABANINA EKLEME YAPMAK İÇİN PROGRAM

 Adı soyadı yaşı sırasıyla 1,2,3 olsun.

Private Sub Command1_Click()

Adodc1.Recordset.AddNew

End Sub

Private Sub Command2_Click()

Adodc1.Recordset.Fields(1).Value = Text1.Text

Adodc1.Recordset.Fields(2).Value = Text2.Text

Adodc1.Recordset.Fields(3).Value = CInt(Text3.Text)

Adodc1.Recordset.Update

End Sub