run-time error 91

[akd]

Merhaba arkadaşlar,
Ben excel userformundan access 'e veri alıp verme işini yapıyordum,
pc de antivürüs taraması yaptıktan sonra kodlarım çalışmamaya başladı,
hata veren kodu aşağıya yazıyorum,
hata uyarısıda :run-time error 91
Aşağıdaki kod hatayı yapan,
acaba bu kod başka türlü yazılabilirmi,
Private Sub UserForm_Initialize()
Set adoCN = CreateObject("ADODB.Connection")
DatabasePath = ThisWorkbook.Path & "\AKD.DGD.NİZİP.mdb"
If Dir(DatabasePath) = "" Then
MsgBox DatabasePath & " bulunamadı, programdan çıkılacak !", vbCritical, "TestMDB"
Unload Me
Exit Sub
End If
adoCN.Provider = "Microsoft.Jet.OLEDB.4.0"
adoCN.ConnectionString = DatabasePath
adoCN.Open
End Sub