Adım Adım veritabanı örneği...

Private Sub Command1_Click()
Ogr_Kayit ' Kaydet Butonuna Basınca Ogr_Kaydet alt programını çağır
End Sub

Sub Ogr_Kayit() 
Set cnn = New ADODB.Connection ' Connection nesnesi oluşturuyoruz yani bağlantı
Set rst = New ADODB.Recordset ' Recordset Nesnesi oluşturuyoz yani kayıt seti

cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & App.Path & "\db.mdb" ' cnn.open ile bağlantımızı açıyoruz. DBQ ise veritabanının yolu app.path & "\db.mdb" ile aktif dizindeki yani programı kaydettiğimiz yerdeki db.mdb dosyasının yolu oluyor.
rst.Open "tblOgr", cnn, 1, 3 'rst.open ile kayıt setimizi açıyoruz. tblOgr veritabanındaki açılcak olan tablonun adı cnn hangi bağlantı olduğu 1 ve 3 ise hem okuma hem yazma modunda açıldığı anlamına geliyo.

rst.AddNew ' rst.Adnew ile yeni kayıt oluşturuyoruz.
rst("OgrNo") = Text1.Text ' OgrNo alanına text i yazdırıyoruz
rst("OgrAd") = Text2.Text
rst("OgrSoyad") = Text3.Text
rst("OgrCinsiyet") = Combo1.Text
rst.Update ' kayıtın yapılması için update ediyoruz

rst.Close ' recordseti kapatıyoruz.
cnn.Close ' bağlantıyı kapatıyoruz

Set rst = Nothing ' bellekte yer kaplamasın die içini boşaltıyoruz.
Set cnn = Nothing
If Err = 0 Then MsgBox "Kayır Başarıyla Yapıldı!" ' eğer bi hata meydana gelmediyse başarıyla kayıt yapıldı die mesaj veriyor.
End Sub

Sub Ogr_Sil()
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & App.Path & "\db.mdb"
rst.Open "Select * FROM tblOgr Where OgrNo=" & Text1.Text, cnn, 1, 3 ' bu sefer direk tabloyu açmadık bi şart koyduk şartımızda tablodaki OgrNo alan adı text1 deki yazı olan kayıtları aç dedik.

rst.Delete ' kayıtı sildik
rst.Update ' update ettik

rst.Close
cnn.Close

Set rst = Nothing
Set cnn = Nothing
If Err = 0 Then MsgBox "Kayır Başarıyla Silindi!"
End Sub

Sub Ogr_Bul()
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

aranan = InputBox("Aradığın Öğrenci Noyu Gir!") ' aranacak öğrenci numarasını istiyoruz

cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & App.Path & "\db.mdb"
rst.Open "Select * FROM tblOgr Where OgrNo=" & aranan, cnn, 1, 3 ' yine tabloyu direk açmadık bu seferki sartımız ise OgrNo su aradığımız öğrenci numarası olan kayıtları buldurduk.

Text1.Text = rst("OgrNo") ' Bulunan kayıtlar textlere ve comboya yazdırılıyo.
Text2.Text = rst("OgrAd")
Text3.Text = rst("OgrSoyad")
Combo1.Text = rst("OgrCinsiyet")

rst.Close
cnn.Close

Set rst = Nothing
Set cnn = Nothing
End Sub

Private Sub Command2_Click()
Ogr_Bul ' Öğrenci bul alt programnı çağır
End Sub

Private Sub Command3_Click()
Ogr_Sil ' oğrenci silme alt programı cağır
End Sub

Private Sub Command8_Click()
End ' çıkış
End Sub

Private Sub Form_Load()
Combo1.AddItem "Erkek"
Combo1.AddItem "Kız"
End Sub