Error de sintaxis en la clausula FROM

Toma esa sentencia y ejecutala en el query analizer del motor de base de datos para que te de el error desde SQL y así sabes que es lo que estas haciendo mal

Tengo la BD en access 2003, nunca use el query analizer lo busque pero no se donde esta...

¿Ese es el mensaje exacto que da access?

Si ese es el mensaje exacto... te paso todo el código para que veas es un botón buscar y de una tabla socios me trae los registros a los textbox ... pero necesito mostrar datos de las otras dos tablas para mostrarlo en el listview ahí me dice el error: "error de sintaxis en la clausaula FROM"
Private Sub cmdBuscar_Click()
If txtSocio.Text <> "" Then
Set rs = ConsultaSQL("select * from socios where nrosocio=" & Val(txtSocio.Text) & "")
If rs.RecordCount > 0 Then
ConsultaSQL "select * from socios where nrosocio=" & Val(txtSocio.Text) & ""
txtSocio.Text = rs!nrosocio
txtnombre.Text = rs!nombre
txtdireccion.Text = rs!direccion
txtFecNac.Text = rs!fechanac
---------------A partir de acá salta el error, si lo pongo como comentario funciona sin error pero no me trae nada al listview claro.
 Set rs = ConsultaSQL("SELECT a.nroactividad,a.descripcion,as.nrosocio,as.fecha,as.hora FROM ActividadesXSocio as ,Actividades a WHERE as.nroactividad = a.nroactividad and as.nrosocio = " & rs!nrosocio)
If rs.RecordCount > 0 Then
   rs.MoveFirst
   LVW.ListItems.Clear
     Do While Not rs.EOF
       With LVW.ListItems.Add
              .Text = rs!descripcion
              .SubItems(1) = rs!fecha
              .SubItems(2) = rs!hora
              .SubItems(3) = rs!nroactividad
        End With
     rs.MoveNext
    Loop
 End If
 Else: MsgBox "no existe ese socio"
 End If
Else: MsgBox "debe ingresar un codigo"
End If
End Sub
No se que sera... quizás estoy usando mal los recordset... no se...