[Resolvido] Vb2008 conexão Local e Rede com Firebird 2.0

Boa Tarde

estou migrando uma aplicação de vb6 para vb2008

sabendo que o computador servidor sempre terá o nome de SERVANT, quando o sistema é iniciado pela primeira vez,

criei uma função que busca pelo IP do computador com nome de servant

verifico se a maquina tem nome diferente de SERVANT se tiver ai eu crio um INI como o IP da maquina servidor

No vb6 na sub main eu verifico o nome do computador

Dim Comn As String

if for SERVANT then

Comc = "LocalHost" & ":C:\Pasta\BANCO.FDB"

else

Leio o arquivo ini

IP = IPDOARQUIVOINI

Comc = IP & ":C:\Pasta\BANCO.FDB"

end if

faço a conexão

set cnn= New Ado.Connection

Cnn.CursorLocation = adUseClient

Cnn.Open "Provider=IBOLE.PROVIDER;Data Source=" & Comc & ";User ID=" & "SYSDBA" & ";Password=" & "masterkey"

Pergunto --->> como eu faria este mesmo processo em vb2008 ?

Obrigado