run-time error 91

akd

Destek Ekibi
Destek Ekibi
Katılım
14 Ağustos 2004
Mesajlar
1,114
Excel Vers. ve Dili
2003
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
 
Üst