Ayuda Con Objecto Adodc Que No Refresca

[skato0000]

Hola a todos, espero esten bien, tengo un problema con un proyecto que estoy haciendo, estoy utilizando VB 6.0 y Access 2003, tengo una BD en formato 97, y mi problema es el siguiente:

lo que quiero es que en un formulario introduzco la clave de una persona y me muestre sus datos, pero no puedo hacer eso, ya que me manda error cuando quiere refrescar un objeto Adodc, si pongo el refresh antes de la consulta no marca error pero me muestra los datos de la primera persona dada de alta. Este es el codigo del botón que utilizo para mostrar la informacion:

Private Sub Command2_Click()
Dim query
If Text17.Text = "" Then
X = MsgBox("No se ingreso ninguna clave", vbCritical, "Error")
Else
query = "SELECT nomb, apelpate, apelmate, cuen, carr, tipo, inic, term, hora, depe, proy, obje, descr FROM presasig, acti, regiproy, presproy WHERE presasig.id = Val(Text17.Text) AND presasig.id = presproy.id_presasig AND acti.id_proy = regiproy.id AND regiproy.id = presproy.id_proy"
Adodc1.RecordSource = query
Adodc1.Refresh
Text3.Text = Adodc1.Recordset.Fields("nomb") & " " & Adodc1.Recordset.Fields("apelpate") & " " & Adodc1.Recordset.Fields("apelmate")
DataList1.ListField = "descr"
DataList1.Refresh
End If
If Val(Text15.Text) = 500 Then
Text16.Text = "QUINIENTOS PESOS 00/000"
End If
End Sub

lo que esta en rojo es la linea que me manda error, y el error que me muestra es el siguiente:

[Microsoft] [Controlador ODBC Microsoft Access] Pocos parametros. Se esperaba 1.
Le doy aceptar y me manda el siguiente mensaje:
Error en el metodo refresh del objeto Adodc
si alguien tiene una solucion a este problema, espero me ayude por favor

[Avellaneda]

Hola, el problema no está en dónde coloques el método Refresh, sino en la consulta SQL.

1º Si los campos a mostrar son de más de una tabla, le tienes que anteponer el nombre de la tabla seguida de un punto.
SELECT Tabla1.nomb, Tablax.apelpate...

2º Para concatenar un valor en la consulta, debes ponerlo entre ampersands
..WHERE presasig.id = " & Val(Text17.Text) & " AND... (La función Val es opcional, es decir, no es necesaria)

3º Para hacer lo que quieres debes utilizar una instrucción INNER JOIN

[skato0000]

muchas gracias, con los pasos 1 y 2 fue suficiente para resolver el problema que tenia, muchas gracias y que estes bien Avellaneda