Yanıtınız için teşekkürler.Sorunum yardımınızla çözüldü.Veritabanının dizinde olmaması durumu ve tabloyu sorgu ile yeni oluşturulan vt içersine eklemeyle birleştirerek yazılan kodun son halini aşağı ekledim.

Dim DOSYA, DURUM, ad, yol, ara, MESAJ

Dim ADOXtable As New Table

Dim ADOXindex As New ADOX.Index

Dim ADOXcatalog As New ADOX.Catalog



ad = CurrentProject.Name

  yol = "c:\Vt\toplu\" & ad

    ara = Dir(yol)

   

   If (ara = "") Then

     MsgBox "Web Güncelle komutunu sadece  Programın " & Chr(13) & "Kurulu olduğu" _

     & "bilgisayarda kullanabilirsiniz", vbOKOnly + vbInformation, "Bilgilendirme"

          

   Else

DOSYA = CurrentProject.Path & "\web.mdb"

  DURUM = Dir(DOSYA)

        

   If (DURUM = "") Then

   MESAJ = MsgBox("Güncelleştirmek istediğiniz veritabanı silinmiş" _

   & Chr(13) & "Tekrar oluşturmak ister misiniz?", vbYesNo + vbQuestion, " Yardım")

   

   If MESAJ = vbYes Then

 ADOXcatalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\web.mdb"

   DoCmd.SetWarnings False

    DoCmd.OpenQuery "webb"

     DoCmd.SetWarnings True

End If



   Else

  DoCmd.SetWarnings False

    DoCmd.OpenQuery "webb"

      DoCmd.SetWarnings True

 End If

 End If