друзья прошу помощи вот в каком деле, программа для ворд обращается в бд аксесса через sql запрос

SQLStatement:="SELECT " & (column) & " FROM " & (usetable) & " where (([" & pole_fil & "]='" & (filtercolumn) & "'))" & "",

если запрос пустой т.е. в бд нет искомой записи то выдает ошибку, как сделать обработчик ошибок что бы он просто пререходил в конец процедуры, и программа не вылетала??
спасибо за помощь!

Shocker.Pro, ActiveDocument.Tables(2).Cell(1, 1).Range.InsertDatabase Format:=0, Style:=0, LinkToSource:=False, _
Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & ad_bd & "; Mode=Read;Extended Properties="""";Jet OLEDB:Engine Type=5;Jet OL" _
, SQLStatement:="SELECT " & (column) & " FROM " & (usetable) & " where (([" & pole_fil & "]='" & (filtercolumn) & "'))" & "", PasswordDocument:="", _
PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:= _
"", DataSource:=ad_bd1, From:=-1, To:=-1, _
IncludeFields:=True

Кусок кода побольше

For t = 1 To oTbl.Rows.Count - u + 1
filtercolumn = oTbl.Cell(u, 1).Range.Text ' получение значениия для фильтрации
filtercolumn = Left(filtercolumn, Len(filtercolumn) - 2) ' удаление ненужных символов
ActiveDocument.Tables(2).Cell(1, 1).Range.InsertDatabase Format:=0, Style:=0, LinkToSource:=False, _
Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & ad_bd & "; Mode=Read;Extended Properties="""";Jet OLEDB:Engine Type=5;Jet OL" _
, SQLStatement:="SELECT " & (column) & " FROM " & (usetable) & " where (([" & pole_fil & "]='" & (filtercolumn) & "'))" & "", PasswordDocument:="", _
PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:= _
"", DataSource:=ad_bd1, From:=-1, To:=-1, _
IncludeFields:=True
ActiveDocument.Tables(2).Rows(1).Delete
ActiveDocument.Tables(2).Select
Selection.Copy
ActiveDocument.Tables(2).Cell(1, 1).Select

Shocker.Pro, Хорошо прошу прощения

так что ребята кто поможет с обработчиком ошибок!