Kod yazma ekranında iken, Menüden Araçlar-Referanslar'a tıklayın.
Gelen Listede "Microsoft ActiveX Data Objects 2.? Library" nin seçili olup olmadığına bakın. (? işareti yerinde 2.1 , 2.5 vs.. olabilir)
Seçili değilse, alfabetik olan listede bu maddeyi bulup, ? yerinde en yüksek numaraya sahip olanı seçin ve tekrar deneyin.

---

Bu arada kodun başındaki "Private Sub Komut8_Click()" ve sonundaki "End Sub" ifadelerini umarım silmemişsinizdir. Sildiyseniz, komut düğmesinin özelliklerinde olay kısmında, tıklandığında olayına tıklayıp, bu kodu Private Sub ile End Sub arasına taşıyın.