[Resolvido]Abrir formulário com registro atual

Ola
Gostaria da ajuda dos mestres deste fórum.
Tenho um formulário de cadastro de clientes e criei outro formulário para Recibo de pagamentos destes clientes.
Consegui vincular os dois formulários de forma que; quando insiro um novo cliente no formulério de clientes, os dados
já ficam preenchidos no formulário de recibo.

Porém após inserir um novo cliente no formulário de clientes e clicar no recibo, o formulário abre com os dados preenchidos
mas não consigo fazer com que o formulário recibo abra com o registro atual, deste novo cliente que acabei de inserir.
Ele abre sempre no primeiro registro.

Gostaria que após inserir um novo cliente e clicar no recibo, ele já abra preenchido e com o cliente que acabei de inserir.

Vocês podem me ajudar ?

no evento clicar do botão recibo

DoCmd.OpenForm "nomedoformrecibo", acNormal


no evento open "Abrir" do formulario recibo;

Private Sub Form_Open(Cancel As Integer)
Dim strSql As String, rstTemp As DAO.Recordset
Dim Msg As String
On Error GoTo 1

'pega o codigo de chave primaria no formulario de cliente e passa para o campo txt do formulario recibo
'esse campo tem que existir no form de cadastro de cliente
Me.txtcodigodocliente = Forms!formulariocliente!txtidcodigoocliente

'fecha o formulario cliente
DoCmd.Close acForm, "formulariocliente"

 If (txtcodigodocliente <> "") Then
 strSql = "Select * from tbcliente where codigodocliente = int(val('" & txtcodigodocliente & "'))"
 Set rstTemp = CurrentDb.OpenRecordset(strSql, dbOpenSnapshot)
  If Not rstTemp.EOF Then
   txtcampoform_nomecliente = rstTemp("campotabela_nomecliente")
   'faça o mesmo com os outros campos     .
   rstTemp.Close
   Set rstTemp = Nothing
  End If
End If
If (txtcodigocliente <> "") Then
 strSql = "Select * from tbrecibo where campotabela_codigocliente = int(val('" & campoform_txtcodigocliente & "'))"
 Set rstTemp = CurrentDb.OpenRecordset(strSql, dbOpenSnapshot)
  If Not rstTemp.EOF Then
   campoform_txtcampovalordorecibo = rstTemp("campotabela_valorrecibo")
   'fazendo o mesmo para outros campos que desejar.
   rstTemp.Close
   Set rstTemp = Nothing
  End If
End If

'lembre que o campo idcliente na tabela tem que estar relacionado entre as duas tabelas ok
Exit_1:
   DoCmd.Hourglass False
   DoCmd.Echo True
   Exit Sub

1 a:
   DoCmd.Hourglass False
   DoCmd.Echo True
   Msg = "Erro # " & Str(Err.Number) & " gerado na " & Err.Source _
       & vbNewLine & vbNewLine & "Descrição: " & Err.Description _
       & vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
   MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", Err.HelpFile, Err.HelpContext
   Resume Exit_1
End Sub

Obrigado ifahidalgo

Consegui concluir esta parte.... valeu pelo apoio