ник: час
Public Function FUN_CLEAR_TABLE(TABLE_NAME As String, _
STR_CONNECTION As Connection) As Boolean
' Функция Очистка таблицы
STR_CONNECTION.Execute "DELETE " & TABLE_NAME & ".* From " & TABLE_NAME & " "
End Function
А как бы тут сразу проверить - пуста она стала или фиг вам
тока без создания recordset_a