On Error Resume Next
buraya veritabanı bağlantısı
If Err.Number = 0 then
veri çektirdiğin bölüm
end if