Visual Basic - Error consulta SQL

saludos amigos, tengo esta consulta, pero al ejecutarla marca error, el error me lo marca en la línea que comento más abajo , muestro la consulta que utilizo a ver si alguien me puede ayudar,

gracias a todos....

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
Sql = "SELECT * FROM dac_envio_ctes"
'Sql = "SELECT dac_remesas.num_folio, dac_remesas.ped1,dac_remesas.cant," & _
' "dac_remesas.clase, dac_remesas.descr, dac_proveedor.nombre, dac_documentos.num_doc," & _
' "dac_documentos.val_doc, dac_remesas.peso, dac_fol_ped.fec_pago, dac_fol_ped.pedimento," & _
' "dac_remesas.fec_emb, dac_remesas.talones, dac_m_lineas.li_nombre," & _
' "from dac_remesas INNER JOIN dac_proveedor ON dac_remesas.proveedor=dac_proveedor.cve," & _
' "INNER JOIN dac_documentos ON dac_remesas.num_folio=dac_documentos.cve_folio INNER JOIN dac_fol_ped," & _
' "ON dac_remesas.num_folio=dac_fol_ped.num_folio INNER JOIN dac_m_lineas ON," & _
' "dac_remesas.cve_trans=dac_m_lineas.li_clave Where dac_remesas.num_folio = 73754"

* en esta parte es donde marca error.....******
rs.Open Sql, cn, adOpenStatic, adLockReadOnly, adCmdText