ник: Orienta
Sub DDD()
Const Provider = "Provider=Microsoft.Jet.OLEDB.4.0; "
Const DataSource = "Data Source=C:\Documents and Settings\TrainAccss\Contacts.mdb"
Dim rs1 As New ADODB.RecordSet
Dim Connection As New ADODB.Connection
MsgBox "1"
Connection.Open (Provider & DataSource) ' Вот здесь и останавливается с ошибкой времени выполнения
Connection.Close
MsgBox "2"
End Sub
Собственно, наблюдается зависимость. Открываю базу - запускаю программку, хоть несколько раз подряд- все крутится. Как только что-то отредактировала,- останавливается.