Option Explicit

' Путь к файлу БД. Должен содержать полное имя файла (включая диск, папку) до файла БД Access
Dim DBFile : DBFile = ChooseFile("C:\Documents and Settings\Futen\Рабочий стол\samo-agent\Ag.7.1.mdb") 

Dim  Catalog, objConn, SQuery

Set objConn = CreateObject("ADODB.Connection")
objConn.ConnectionString = ConnectString
objConn.Open
Dim RecordsAffected
objConn.Execute "select * from [version]"
'Закрываем соединение
objConn.Close
Set objConn = Nothing

' MsgBox "База данных обновлена", vbInformation + vbOKOnly

'Выбор файла БД
Function ChooseFile(StartName)
    Dim Str : Str = InputBox("Файл БД", "Укажите файл БД", StartName)
    If Len(Str) = 0 Then
	    Wscript.Quit
	End If
	 
	ChooseFile = Str        
End Function

Function ConnectString()
    ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DBFile & ";"
End Function