Mensaje

[Cony28]

Hola a todos:

Deseo enviar un mensaje de que si la conexion a la base fue exitosa o otro que diga que no se pudo conectar en caso de que no se conecte a la base.
Este mi codigo:

Dim CnnS As Connection
Dim CnnA As Connection
Dim RsSQL As Recordset
Dim RsAcc As Recordset

Private Sub cmdConectaAccess_Click()
ConectaA
End Sub

Private Sub cmdConectaSQL_Click()
ConectaSQL
End Sub

Public Sub ConectaA()
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
End Sub

Public Sub ConectaSQL()
Set CnnS = New Connection
With CnnS
.Provider = "SQLOLEDB"
.ConnectionString = "User Id=alumno;Password=123;" & _
"Data Source=ServerSQL; " & _
"Initial Catalog =comercio"
.Open
End With
Set RsSQL = New Recordset
RsSQL.CursorLocation = adUseServer
RsSQL.Open "SELECT * FROM empresa", CnnS
End Sub


Private Sub cmdPasaDatos_Click()
Do While Not RsAcc.EOF
RsAcc!rut = RsSQL!rut
RsAcc!empresa = RsSQL!empresa
RsAcc!direccion = RsSQL!direccion
RsAcc!factura = RsSQL!factura
RsAcc!estado = RsSQL!estado
RsAcc.AddNew
Loop
End Sub