Mensaje

[pablinweb]

tambien puedes poner una función en lugar de un sub y que te devuelva true o false, algo así:

Private Sub cmdConectaAccess_Click()
if ConectaA then
msgbox "Conexión OK"
else
msgbox "Fallo en la conexión"
end if
End Sub


Public Function ConectaA() as Boolean
On Error goto ErrConnA
ConectaA = true
Set CnnA = New Connection
With CnnA
.Provider = "MICROSOFT.JET.OLEDB.4.0"
.ConnectionString = App.Path & "\comercio.mdb"
.Open
End With
Set RsAcc = New Recordset
RsAcc.Open "Select * from empresa", CnnA
ErrConnA:
ConectaA = false
End Function