Userforms - To populate data on a specific sheet and columns

Hi All, i'm having a hard time with trying to populate data from a userform to a specific column under a specific sheet. I've attached the file if you want to look at it. The file is basically a exam type with user logging and auto score computing.

The file is made of 6 sheets, 1st sheet is the log-in page where takers are required to enter their ID number and last name. 3 sheets of dummy test items, an Admin sheet that computes the score per test item and Database which I'm trying to compile all data in one column.

What I'm trying to do is that when they enter their ID and Last Name and then answer the 3 tests, they will be recorded in the database sheet in 1 column containg their ID, name and all the test results so that checking,grading and identifying who took the test would be easy.

So far I think I've done the part for the scores but I can't seem to get the userform for emp# and last name to populate on the field marked in the database.

Please help...

This code is no good:

Private Sub TextBox1_Change()

Cells(emptyRow, 1).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value

End Sub

I think you may be trying to do something like this:

Private Sub okemp_Click()
Dim ws As Worksheet:    Set ws = Sheets("Database")
Dim lastrow As Long

lastrow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1

If TextBox1.Value <> "" And TextBox2.Value <> "" Then
    ws.Range("A" & lastrow).Value = TextBox1.Value
    ws.Range("B" & lastrow).Value = TextBox2.Value
Else
    MsgBox ("you must enter an ID# and Name")
End If
Application.Goto Worksheets("Test 1").Range("A1")

End Sub

Note: You are probably going to have a few problems with the code in the future. You might want to consider such things as sheet references, error checking, etc. If this spreadsheet is part of your work or a profesional function, I would consider paying for someones services to help you build it completely.