Очистка БД от всех записей - VB

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

Здравствуйте! Ситуация следующая. Есть база, в ней 4 таблицы. Нужно по нажатию на кнопку "Удаление", чтобы выдавался Msgbox с соответствующим предупреждением, и возможностью отменить действие. Сейчас у меня следующий код:

Private Sub ClearBD_Click()
MsgBox "Вы действительно хотите удалить все записи в БД? Убедитесь, что у Вас есть архивная копия БД.", vbExclamation + vbOKCancel, "Внимание!!!"
If vbCancel Then
Form3.Show
End If
If vbOK Then
DataEnvironment1.rsTableAkss.Delete adAffectAll
DataEnvironment1.rsTableAudio.Delete adAffectAll
DataEnvironment1.rsTableInstr.Delete adAffectAll
DataEnvironment1.rsTableLight.Delete adAffectAll
DataEnvironment1.rsTableAkss.Update
DataEnvironment1.rsTableAudio.Update
DataEnvironment1.rsTableInstr.Update
DataEnvironment1.rsTableLight.Update
Form3.DataGrid1.Refresh
End If
End Sub

Но видимо я где то допустил косячок: нажимаешь отмена, все в порядке, база целая, нажимаешь ок - тоже все в порядке, записи не удаляются поделитесь опытом пожалуйста

Решение задачи: «Очистка БД от всех записей»

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

                            Private Sub ClearBD_Click()
g = MsgBox("Вы действительно хотите удалить все записи в БД" & vbCrLf & "Убедитесь, что у Вас есть архивная копия БД", vbInformation + vbYesNo, "Внимание!!!")
            If g = 6 Then
DataEnvironment1.rsTableAkss.Delete adAffectAll
DataEnvironment1.rsTableAudio.Delete adAffectAll
DataEnvironment1.rsTableInstr.Delete adAffectAll
DataEnvironment1.rsTableLight.Delete adAffectAll
DataEnvironment1.rsTableAkss.Update
DataEnvironment1.rsTableAudio.Update
DataEnvironment1.rsTableInstr.Update
DataEnvironment1.rsTableLight.Update
Form3.DataGrid1.Refresh
Form3.Show
 
Else 
 
Exit Sub
 
End If
End Sub
                        