DUAS CONEXOES

CLAUDIOLUCROCHA 02/03/2005 16:01:13
#70785

Tenho uma coxecao pegando no arq1.mdb no meio do programa tenho que terminar esta conexao e pegar outra (Arq2.mdn por exemplo). Estou tentando assim

Set i_cnn = New ADODB.Connection
i_cnn.Mode = adModeReadWrite
i_cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Sourcearq1.mdb Jet OLEDB:Database Password=" & Trim(senha_banco) & ";"
i_cnn.Open
>>>>> leio gravo e etc

i_cnn.Close

Set i_cnn = Nothing
Set i_cnn = New ADODB.Connection
i_cnn.Mode = adModeReadWrite
i_cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source arq1.mdb Jet OLEDB:Database Password=" & Trim(senha_banco) & ";"
i_cnn.Open

>>> Erro diz que a conexao esta fechada.

Isso e possivel
[S51]