Que tal como estan..... soy nuevo en esto de empezar hacer macros en excel, y tratando de hacer la siguiente consulta

Private Sub CargarData1()
        Set rs = New ADODB.Recordset
 'consulta = "SELECT * FROM example"
 consulta = "Select idappact, codappact, desapeta, desapsub, nomapact, resappact, Date_format(fecappini,'%d/%m/%y'), " & _
                    " Date_format(fecappfin,'%d/%m/%y'), Date_format(fecapprea,'%d/%m/%y'), porappava, obsappact, diaapact, obsextact  From appactividades " & _
                    " INNER JOIN apetapas on idapeta = idappeta INNER JOIN apsubetapas on idapsub = idappseta " & _
                    " INNER JOIN apactividades on idapact = idappact1 WHERE codappact = '" & [b2] & "' "
 rs.Open consulta, conexion, adOpenStatic

On Error Resume Next
 rs.Close
 Set rs = Nothing
 conexion.Close
 Set conexion = Nothing
 On Error GoTo 0

End Sub
[/PHP]

me marca error en esta linea Set rs = New ADODB.Recordset

No se ha definido el tipo definido por el usuario....

Saludos y gracias!!

Hola:

Le falta incluir la referencia a la librería Microsoft ActiveX Data Objects x.xx.

Tampoco veo la conexión con la base de datos por ninguna parte.

[ATTACH]36477.vB[/ATTACH]

Saludos

gracias me faltaba la referencia.........

- - - - - Mensaje combinado - - - - -

gracias me faltaba la referencia.........

- - - - - Mensaje combinado - - - - -

gracias me faltaba la referencia.........