Всем привет. Помогите, уже мозг сломал.
Есть форма, на форме грид и adodc источник данных и кнопочка "загрузить"
при нажатии на кнопочку с ФТП скачивается база access и таблица из неё выводится в грид:
формирую подключение :

form.Adodc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path_c & ";Persist Security Info=False"

form.Adodc.RecordSource = "SELECT * FROM [table1]"

ну и затем вывод в грид

TDBGrid1.DataSource = Adodc
TDBGrid1.Refresh
.

При повторном нажатии кнопочки нужно убить с жёсткого диска базу, скачать новую и опять вывести в грид данные. Получается только если unload form, kill (path) и опять load.
Посоветуйте, как граммотно отключить?

пробовал, не отпускает((
альтернативные способы есть? Подскажите?

Private Sub Command1_Click()

Dim rs As New ADODB.Recordset
Dim con As New ADODB.Connection

con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path_c
на это строке вылазит ошибка - не выполнена проверка подлинности

With rs
.ActiveConnection = con
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockBatchOptimistic
.Open "SELECT * FROM [presence" & k & "]"
End With

в предыдущем разобрался - синтаксис)
теперь новая ошибка
provider cannot be found

в итоге разобрался с подключением, пришёл к тому же самому. Народ! Не бросайте на полпути,
как теперь отключить adodb?

Private Sub Command1_Click()

Dim rs As New ADODB.Recordset
Dim con As New ADODB.Connection

If Dir(path_c) <> "" Then Kill (path_c) ' вот здесь не даёт доступ



With con
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path_c & ";Persist Security Info=False"
.Mode = adModeReadWrite
.CursorLocation = adUseClient
.Open
End With

With rs
.ActiveConnection = con
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockBatchOptimistic
.Open "SELECT * FROM [presence" & k & "]"
End With

TDBGrid1.DataSource = rs

End If
End Sub

я там пропустил код, который копирует с фтп обновлённый файл

тогда в первый раз при загрузке будет писать ошибку
operation is not allowed when object is closed - понятно, потому что подключение ещё не установлено.

всё,разобрался.
объявил con и rs публичным

если кому нить понадобится:
Public con As New ADODB.Connection
Public rs As New ADODB.Recordset


Private Sub Command1_Click()

con.Close
Set con = Nothing

If Dir(path_c) <> "" Then Kill (path_c)
'потом идёт копирование новой базы в path_c и заново устанавливаем связь

With con
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path_c & ";Persist Security Info=False"
.Mode = adModeReadWrite
.CursorLocation = adUseClient
.Open
End With

With rs
.ActiveConnection = con
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockBatchOptimistic
.Open "SELECT * FROM [presence" & k & "]"
End With

TDBGrid1.DataSource = rs

End Sub

единственное - первый запуск, как обработать его..

и последнее - проверка открыто ли подключение)
If con.State = 1 Then
con.Close
Set con = Nothing
End If

разобрался
теперь вопрос, почему теперь при изменении в гриде значения в ячейке, значение в БД автоматически не обновляется? С какими параметрами устанавливать соединение?

спасибо, разобрался.
мне тут подсказывают создавать подключение а потом закрывать его
проблема же в том, что его закрывать не в том же модуле надо
а скажем по нажатию кнопки, и обработчик кнопки уже не знает как называется подключение и не закрывает его. Как я понимаю, он висит в памяти но уже без имени.