Postada em 11/03/2008 15:37 hs
Dim BANCO_2 As ADODB.Connection
Set BANCO_2 = New ADODB.Connection
BANCO_2.CommandTimeout = "120" '2 minutos sem resposta de um comando
BANCO_2.ConnectionTimeout = "120" '2 minutos sem resposta de uma conexao
BANCO_2.Open "Provider=SQLNCLI.1;Persist Security Info=False;User ID=sa; Password=*; Data Source=TesteDBsqlexpress"
|
