'Открываем набор данных
    Dim rs As New ADODB.recordset
    rs.Open "select * from ows.opt_eskraspmain", cnn
    'Находим число записей в наборе
    rs.MoveFirst
    intRows =  0 
    Do While Not rs.EOF
        intRows = intRows +  1 
        rs.MoveNext
    Loop
    rs.MoveFirst
    'Получаем массив записей
    arrayRows = rs.GetRows(intRows)

    Dim cnn As New ADODB.Connection
    cnn.ConnectionString = "Provider=MSDASQL.1;" _
    & "Data Source=TEST; User ID=user; Password=pass"
    cnn.CommandTimeout =  0 

    'Создание подключения к базе
    Dim cnn As New ADODB.Connection
    cnn.ConnectionString = "Provider=OraOLEDB.Oracle.1;" _
    & "Data Source=TEST; User ID=user; Password=pass"
    cnn.CommandTimeout =  0 
    cnn.Open

update sy_handbook a set a.filter2 = 'г. Находка'
where a.name = 'НАХОДКА'

update sy_handbook a set a.filter2 = 'г. Находка'
where a.name = 'НАХОДКА'
/
commit
/