Oracle - PROBELAS URGENTES...

Buenas tardes, soy nuevo en la en oracle, el problema que les comento hace referencia a, al cargue de registro desde oracle a sqlserver.

Me estoy conectando a oracle a traves de ODBC y de la misma manera sql Server

****************************************************************
Dim con As Double
Dim fecha
Set conecora = Nothing
Set tablaora = Nothing
Set conecsql = Nothing
Set tablasql = Nothing
Set conecora = New ADODB.Connection
Set tablaora = New ADODB.Recordset
Set conecsql = New ADODB.Connection
Set tablasql = New ADODB.Recordset

On Error GoTo maestro
con = 0
conecora.Open "DSN=" & DNSORA & ";ODBC;UID=" & UIDORA & ";PWD=" & PWDORA & ""
conecsql.Open "ODBC;DATABASE=teledial_principal;UID=" & UIDSQL & ";PWD=" & PWDSQL & ";DSN=" & DNSSQL & ""
tablaora.Open "SELECT * FROM clase_servicio order by codigo", conecora, adOpenDynamic, adLockOptimistic
tablasql.Open "SELECT * FROM areas order by cod_ori", conecsql, adOpenDynamic, adLockOptimistic

Do While Not tablaora.EOF
tablasql.Close
tablasql.Open "select * from areas where cod_ori = '" & tablaora!codigo & "'", conecsql, adOpenDynamic, adLockOptimistic
If Not tablasql.EOF Then
SQL = "Update areas set nombre = '" & tablaora!descripcion & "' where cod_ori = '" & tablaora!codigo & "'"
conecsql.Execute (SQL)
Else
SQL = "insert into areas (cod_ori,nombre) " & _
"values('" & tablaora!codigo & "','" & tablaora!descripcion & "')"
conecsql.Execute (SQL)
End If
conti:
con = con + 1
Form1.Caption = "ACTUALIZANDO CLASE DE SERVICIOS, REGISTROS PROCESADOS: " & con
DoEvents
tablaora.MoveNext
Loop
conecora.Close
conecsql.Close

EL PROBELA QUE TENGO POR EJEMPLO EN LA BASE ORACLE TENGO 789000 REGISTROS Y CUANDO SE HAN CARGADO 225000 SE CAE LA CONEXIÓN

POR FAVOR ME PUEDEN AYUDAR