If you called the following code from a command button it will enter what ever you type in the input box into the control on your form named "txtMyControl"
txtMyControl = InputBox("Please Enter Text", "Input Box")
If that control is linked to a field in your database it will enter the data into that field.