[Resolvido]Abrir Formulário no registro especifico

Amigos, sei que o que vou postar parece fácil, mas por mais que modifique meu preojeto nao consigo resolver a seguinte questão.
Tenho um form desvinculado, preciso localizar um determinado cliente, uso a seguinte função :
Private Sub Lista_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmClientes"
stLinkCriteria = "[IDCLI]=" & Me![Codigo]
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormEdit
Forms!FrmClientes.RecordSource = "TBLCLIENTES"
Forms!FrmClientes!CPIDCLI.ControlSource = ("IDCLI")
Forms!FrmClientes!CPNOMECLI.ControlSource = ("NOMECLI")
Forms!FrmClientes!CPENDCLI.ControlSource = ("ENDCLI")
Forms!FrmClientes!CPNUNRUA.ControlSource = ("NUNRUA")
Forms!FrmClientes!CPBAIRRO.ControlSource = ("BAIRRO")
Forms!FrmClientes!CPCIDADE.ControlSource = ("CIDADE")
Forms!FrmClientes!CPFONE.ControlSource = ("FONE")
Forms!FrmClientes!CPCELULAR.ControlSource = ("CELULAR")
Forms!FrmClientes!CPPTREF.ControlSource = ("PTREF")
Forms!FrmClientes!CPCOMPLEMENTO.ControlSource = ("Complemento")
Forms!FrmClientes!CPNOMECLI.SetFocus
Me.Visible = False
a função não está funcionado pois o form é aberto porem não no registro especifico, ele sempre abre no primeiro registro
só funcionou se eu deixar o forme vinculado a tabela .. porem preciso que el seja desvinculado.
alguma ideia de como fazer esse código funcionar corretamente.
Explicando melhor tenho um form onde eu filtro o cliente por nome( exemplo tirado do Grande Mestre Avelino)
uma list box me da os resultados ao clicar na list box executo o ´codigo, porem como disse ele nãio funciona corretamente.

Tente assim:
Private Sub Lista_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmClientes"
stLinkCriteria = "[IDCLI]=" & Me![Codigo]
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormEdit
Forms!FrmClientes.RecordSource = "TBLCLIENTES"
Forms!FrmClientes!CPIDCLI.ControlSource = ("IDCLI")
Forms!FrmClientes!CPNOMECLI.ControlSource = ("NOMECLI")
Forms!FrmClientes!CPENDCLI.ControlSource = ("ENDCLI")
Forms!FrmClientes!CPNUNRUA.ControlSource = ("NUNRUA")
Forms!FrmClientes!CPBAIRRO.ControlSource = ("BAIRRO")
Forms!FrmClientes!CPCIDADE.ControlSource = ("CIDADE")
Forms!FrmClientes!CPFONE.ControlSource = ("FONE")
Forms!FrmClientes!CPCELULAR.ControlSource = ("CELULAR")
Forms!FrmClientes!CPPTREF.ControlSource = ("PTREF")
Forms!FrmClientes!CPCOMPLEMENTO.ControlSource = ("Complemento")
DoCmd.GoToRecord , , ,acLast
Forms!FrmClientes!CPNOMECLI.SetFocus
Me.Visible = False

Lupercio obrigado pela colaboração, ,mas não funcionou..
Exemplo tinha de abrir o cliente com código 108
abriu no cliente 104

Tem como postar parte do banco ai dou uma olhada!

Pessoal,
Voces conseguiram resolver este tópico? estou tentando fazer o mesmo e não consigo.