HOLA A TODOS ESPERO ESTEN BIEN, TENGO UN PROBLEMA CON UN PROGRAMA QUE ESTOY HACIENDO, UTILIZO VB6 Y ACCESS 2003 Y ESTOY TRATANDO DE QUE EN UN FORMULARIO SE MUESTRE LA INFORMACION DE LA PERSONA DE LA QUE SE INGRESÓ SU CLAVE, AL INTRODUCIR LA CLAVE EN UN TEXTBOX ME MUESTRA LA INFORMACION DE LA ULTIMA PERSONA DADA DE ALTA, NO PUEDO REFRESCAR UN OBJETO ADODC, ESTE ES EL CODIGO DEL BOTON QUE UTILIZO PARA LLENAR LA INFORMACION:

Private Sub Command2_Click()
Dim idcap As Integer
idcap = Val(Text17.Text)
Adodc1.RecordSource = "SELECT * FROM acti, presproy, regiproy, presasig WHERE presasig.Id = idcap AND presasig.Id = presproy.id_presasig AND acti.id_proy = regiproy.Id AND regiproy.Id = presproy.id_proy"
Adodc1.Refresh
Text3.Text = Adodc1.Recordset.Fields("nomb") & " " & Adodc1.Recordset.Fields("apelpate") & " " & Adodc1.Recordset.Fields("apelmate")

idacti = Adodc1.Recordset.Fields("id")
Adodc1.RecordSource = "SELECT * FROM acti Where id = " & idacti & " "
Adodc1.Refresh

idproy = Adodc1.Recordset.Fields("Id")
Adodc1.RecordSource = "Select * from acti Where id_proy = " & idproy & " "
Adodc1.Refresh
DataList1.ListField = "descr"
DataList1.Refresh
End Sub

DESPUES DE LA CONSULTA NO REFRESCA EL ADODC1, LA LINEA QUE ESTA EN ROJO, EL ERROR QUE ME APARECE ES: ERROR EN EL METODO REFRESH DEL OBJETO ADODC
SI ALGUIEN ME PUEDE AYUDAR A SOLUCIONAR EL PROBLEMA SE LO AGRADEZCO MUCHO, SALUDOS A TODOS