drinfierno respondió:
Public Sub Conectar() Dim X As Object Set Cn = New ADODB.Connection With Cn .ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sA;pWD=sa;Initial Catalog=NOMBREDELABASEDEDATOS" .Open End With End Sub Sub AccesoTabla(Rs As...