Error en consulta

spidrman0778 · el 8 de febrero

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]