ON ERROR RESUME NEXT
siteFolder = pickFolder(0)
mydb = siteFolder + "\ActinicCatalog.mdb"

sData = "UPDATE Product SET Product.[Can be ordered online] = 1"

strAutoset = MsgBox("This will update the selected database with the SQL query." & vbcrlf & vbcrlf & "BACKUP THE YOUR DATABASE BEFORE CONTINUING" & vbcrlf & vbcrlf &"Select 'Yes' to go ahead and update the database - wait for the update to finish." & vbcrlf & "Select 'No' to cancel." ,4)
If (strAutoset = vbYes) then
    Set OBJdbConnection = CreateObject("ADODB.Connection")
    OBJdbConnection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & mydb
    SQLQuery = sData
    Set Result = OBJdbConnection.Execute(SQLQuery)
    OBJdbConnection.Close    
    msgbox("Completed - Database updated")
Else
    msgbox("Aborted - Database not updated")
End If

Function pickFolder(strStartDir)
    Dim SA, F
    Set SA = CreateObject("Shell.Application")
    Set F = SA.BrowseForFolder(0, "Choose the folder that contains the Actinic database you wish to work on.", 0, strStartDir)
    If (Not F Is Nothing) Then
          PickFolder = F.Items.Item.path
    End If
    Set F = Nothing
    Set SA = Nothing
End Function