Test Foro de elhacker.net SMF 2.1

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

Primero que nada, bienvenido!
Segundo, leete las reglas, nunca se escribe en mayusculas, dificulta la lectura y queda mal
Tercero, utiliza los TAG de codigo

Mira este ejemplito aver si te sirve (sacado de: http://www.elguille.info/vb/ejemplos/ADO_datacontrol.htm (http://www.elguille.info/vb/ejemplos/ADO_datacontrol.htm)):

Private Sub Form_Load()
    ' Indicar la base de datos a usar! ESTO ES ACCESS 2000
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                              "Data Source=" & App.Path & "\db2000.mdb"
   
    Adodc1.CursorType = adOpenDynamic
    ' Conectarlo a la tabla de prueba
    Adodc1.RecordSource = "Table1"
    ' Refresh es necesario para que se cargue la tabla
    Adodc1.Refresh
   
    ' Conectar manualmente los Text1 al recordset
    Dim i As Long
    ' Asignar el control data
    For i = 0 To 2
        Set Text1(i).DataSource = Adodc1
    Next
    ' Asignar los nombres de los campos
    Text1(0).DataField = "Nombre"
    Text1(1).DataField = "e-mail"
    Text1(2).DataField = "Comentario"
End Sub

Fijate, talvez te salteaste algo o lo usas mal!
Espero te sirva!