Run-time error 424 Object required

Merhabalar ben vb ile programlama konusunda çok çok yeniyim, ancak C/C++ la ilgilendigim icin syntaxine alışmam uzun sürmedi. Yalnız sürekli bi hata msgı ile karşılaşıyorum.
Amacım elimde bulunan bir access veri tabanından "doktor.mdb" içinde bulunan table ları excel dosyalarına cevirmek... yalnız bunu yaparken biyerlere tıklamak şistemiyorum. Yani dosya .exe ya da .vbs olmalı ki makineme scheduled task olarak atıyabiliyim...
Sizce hatam nerdedir ? DoCmd i yanlış mı kullanıyorum... çünkü hatayı o satırda gösteriyo... kodu kopyalıyorum:

Dim Db As Database

Private Sub Form_Load()

Set Db = OpenDatabase("C:\doktor.mdb")

    DoCmd.TransferSpreadsheet acExport, 8, "kurum", "C:\kurum.xls", True, ""
    DoCmd.TransferSpreadsheet acExport, 8, "Ankkurum", "C:\Ankkurum.xls", True, ""

End Sub

Private Sub Form_Unload(Cancel As Integer)
    Db.Close
End Sub

Project menüsünden References e tıkla
Oradan 'Microsoft Access X.0 Object Library ' seçeneğini işaretle.

eklediysen sorun yok zaten
şimdi kodlarını aşağıdakiler gibi değiştir.

Dim Db As Access.Application

Private Sub Form_Load()

set db = new access.application

db.OpenCurrentDatabase "C:\doktor.mdb"

db.DoCmd.TransferSpreadsheet acExport, 8, "kurum", "C:\kurum.xls", True, ""
db.DoCmd.TransferSpreadsheet acExport, 8, "Ankkurum", "C:\Ankkurum.xls", True, ""

End Sub

Private Sub Form_Unload(Cancel As Integer)
db.CloseCurrentDatabase
set db = nothing
End Sub