Хелп ..очень нужна помощь . не обновляется таблица(( - VB

Формулировка задачи:

мучаюсь над проблемой долгое время и никак не пойму в чем тут проблемма((( ??
после вызова подрограммы Refr данные в таблице не меняются , а должны остаться записи только те у которых индификатор Pl=1 . И чтоб записи обновилдись приходится в подпрограмме Refr вставлять по несколько Adodc1.Refresh . а если один раз таблица остается не изменна .. Мож кто нибуть сталкивался с данной проблемой ? Очень нужно решение.
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
'Становимся на нужную запись и жмем кнопку
Adodc1.Recordset("Pl") = 0
Adodc1.Recordset.Update
Call Refr '
End Sub
Private Sub Refr()
On Error Resume Next
Adodc1.RecordSource = "SELECT * FROM Baz where [Mes]= " & MPlan & " and [God]= " & GodPlan & " AND [Pl] = 1"
Adodc1.Refresh ' срабатывает если выполняем дважды
Adodc1.Refresh
End Sub

Решение задачи: «Хелп ..очень нужна помощь . не обновляется таблица((»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> Refr()
<font color="blue">On</font> <font color="blue">Error</font> <font color="blue">Resume</font> <font color="blue">Next</font>
Adodc1.Refresh
Adodc1.RecordSource = <font color="teal">"SELECT * FROM Baz where [Mes]= "</font> & MPlan & <font color="teal">" and [God]= "</font> & GodPlan & <font color="teal">" AND [Pl] = 1"</font>
<font color="00AA00">'Adodc1.CommandType = adCmdText</font>
Adodc1.Refresh
<font color="blue">End</font> <font color="blue">Sub</font>
                        