Mensaje

[Cony28]

lo quiero en la parte de cuando se aprieta el boton ya sea para sql o access
AQUI!!!!!
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