what about

VB Code:
  1. Private Sub txtinformation_KeyPress(KeyAscii As Integer)

  2.     If KeyAscii = vbKeyReturn Then

  3.         cmdenter_Click

  4.      End If

  5.    Exit Sub

  6. End Sub

Thanks