Boa tarde a todos!!!
Quero que meu form ao receber o foco veja se a conecção esta aberta
se não estiver que abra!! minha conecção é a seguinte
'num modulo
Public conn As New ADODB.Connection
Public caminho As String ' caminho da conecção
Public Sub abrir()
caminho = (App.Path & "atv_alm.mdb")
conn.Mode = adModeReadWrite
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho & ";Persist Security Info=False"
End Sub
