thank uoy
i can creat it yesterday
code in form B
***********
Private Sub Form_Unload(Cancel As Integer)
Forms!A!Text0 = Me!Text0
End Sub
---------------------------------------------
code in form a
***********
Private Sub Command5_Click()
DoCmd.OpenForm "B"
End Sub