Attribute VB_Name = "Conexao2" Public oConect As ADODB.Connection Public oRconect As ADODB.Recordset Public oRconect2 As ADODB.Recordset Sub Conect_cons() ' Conexão com o Banco de Consulta no Blade Set oConect = New ADODB.Connection Set oRconect = New ADODB.Recordset Set oRconect2 = New ADODB.Recordset 'Desenvolvimento 'oConect.Open "Provider=SQLOLEDB;Data Source=DSI-luis2\luis;Initial Catalog=consulta_defensoria;User ID=sa;Password='luis';" 'Blade Homologação 'oConect.Open "Provider=SQLOLEDB;Data Source=10.15.2.8;Initial Catalog=consulta_defensoria;User Id=consulta_defensoria_int02;Password=Conxml129" 'Blade Produção oConect.Open "Provider=SQLOLEDB;Data Source=10.15.2.7;Initial Catalog=consulta_defensoria;User Id=consulta_defensoria_int02;Password=Conxml129" End Sub Sub Desconect_cons() If IsEmpty(oConect) Then oConect.Close Set oConect = Nothing End If End Sub