problemas con evento keypress

[INA_987]

si el left outer join es el que estoy utilizando mira mi codigo

//tiene que buscar en las 3 tablas el codigo del producto si existe realizar las selecciones.

SELECT SAPROD.CodProd, SAPROD.Descrip, SAPROD.Descrip2, SAPROD.Descrip3, SAPROD.Refere, SAPROD.Precio3, SAITEO.MONTO FROM SAPROD left outer join sacodbar on saprod.codprod = sacodbar.codprod left outer join SAITEO ON saprod.codprod = saiteo.CodItem; Busqueda, adOpenStatic, adLockOptimistic


//ya creo saber porque? resulta que solo estoy mandando a evaluar un codigo mira esto


Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then


If Text1.Text = "" Then MsgBox ("Debe Ingresar El Codigo Del Producto"), vbInformation, "aviso": Text1.SetFocus: Text1.Text = "": Exit Sub

With rs

.Requery

//aqui es donde creo que esta el problema porque le mando a mostrar le codpord pero no le tengo parametros a esa varieble ,no se si me explico bien. deberia ser algo asi como que (codprod = SAPROD.CodProd,sacodbar.codprod,saiteo.CodItem) algo asi pienso yo pero no se como realizarlo....

.Find "CodProd='" & Trim(Text1.Text) & " '"

If .EOF Then

MsgBox ("El Codigo No Existe"), vbInformation
Text1.Text = ""
Text1.SetFocus


Else

Text2.Text = !Descrip
Text3.Text = !Descrip2
Text4.Text = !Descrip3
Text5.Text = !Refere
Text6.Text = !Precio3
Text7.Text = "" & !Monto

End If

End With

End If

End Sub