Hola Amigos:
Planteo situación:
Tengo una base de datos Sql Server en servidor remoto y otra base replica en forma local, asi lo hice para cuando se desconecta remoto se pueda trabajar en forma local.-
Problema: Como hago para que de una conexion remota pase a una local y cuando la remota se restituya vuelva a la misma.- Los String de conexion que son los siguientes:

'------ CONEXION BASE LOCAL
usu = "prueba01" 'Trim(usu)
pas = "prueba01" 'Trim(pas)
Base.Open "Provider=SQLOLEDB.1;User ID= " & usu & ";Password= " & pas & ";Persist Security Info=False;Initial Catalog=baselocal;Data Source=local"

'------ CONEXION BASE REMOTA
usu1 = "prueba" 'Trim(usu)
pas1 = "prueba" 'Trim(pas)
Base.Open "Provider=SQLOLEDB.1;User ID= " & usu1 & ";Password= " & pas1 & ";Persist Security Info=False;Initial Catalog=baseremota;Data Source=remoto"

Estoy usando una subrrutina que detecta el estado de la Lan:

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Private Const INTERNET_CONNECTION_LAN As Long = &H2
Private dwFlags As Long


Private Function Lan() As Boolean
Call InternetGetConnectedState(dwFlags, 0&)
Lan = dwFlags And INTERNET_CONNECTION_LAN
End Function

Public sub VerificarConexion
If CBool(Lan()) = True Then
Call ConectoRemoto
Elseif CBool(Lan()) = False Then
Call ConectoLocal
End if
End sub


<>, li.MsoNormal, div.MsoNormal
{mso-style-parent:"";
margin:0cm;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
@page Section1
{size:612.0pt 792.0pt;
margin:70.85pt 3.0cm 70.85pt 3.0cm;
mso-header-margin:36.0pt;
mso-footer-margin:36.0pt;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->Pongo un contador para que ingrese una sola vez a determinar conexion de redPublic sub VerificarConexion
If CBool(Lan()) = True Then
If redremota=0 then
redremota= redremota+1
Call ConectoRemoto
redlocal=0
End if
Elseif CBool(Lan()) = False Then
If redlocal=0 then
redlocal= redlocal+1
Call ConectoRemoto
redremota=0
Call ConectoLocal
End if
End if
End sub

Pero cuando detecto la Lan y al no ser inmediata la conexion no puedo alli nomás hacer un insert de migracion por la red que me arroja un error.-
< ="C&#111;ntent-" c&#111;ntent="text/; charset=utf-8">< name="ProgId" c&#111;ntent="Word.">< name="Generator" c&#111;ntent="Microsoft Word 9">< name="Originator" c&#111;ntent="Microsoft Word 9"><a href="file:///C:/DOCUME%7E1/Luismo/C&#079;NFIG%7E1/Temp/msoclip1/01/clip_filelist.xml" target="_blank"><!--[if gte mso 9]><>
<w:Word>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:Hyphenati&#111;nZ&#111;ne>21</w:Hyphenati&#111;nZ&#111;ne>
<w&#111;notOptimizeForBrowser/>
</w:Word>
</><![endif]--><>
<!--
/* Style Definiti&#111;ns */
p.Ms&#111;normal, li.Ms&#111;normal, div.Ms&#111;normal
{mso-style-parent:"";
margin:0cm;
margin-bottom:.0001pt;
mso-paginati&#111;n:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
@page Secti&#111;n1
{size:612.0pt 792.0pt;
margin:70.85pt 3.0cm 70.85pt 3.0cm;
mso-er-margin:36.0pt;
mso-footer-margin:36.0pt;
mso-paper-source:0;}
div.Secti&#111;n1
{page:Secti&#111;n1;}
-->Espero haber sido claro.- Gracias por la ayuda que descarto desde ya.-