Populating A Subform Item To Another Subform Item.

Hey all.

I'm trying to get a combo box to populate the box next to it.

Basically pick a project number in the 1st box and have the project name show up in the second box.

I have it working, but the problem is that when it puts in the name of the project, it fills the whole column with that name, and not just the one box.

Here is what it's doing:
http://img156.imageshack.us/img156/2659/dbhm4.jpg

Here is the code im using.

Private Sub ProjectNumber_AfterUpdate()
On Error Resume Next

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String


ProjectNumber.SetFocus
If ProjectNumber.Value > 0 Then
strSQL = "SELECT * FROM ProjectList WHERE ID = " & ProjectNumber.Value

Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
If Not rs.BOF Then
Me.ProjectName = rs("ProjectName")
End If
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End If

End Sub

Let me know what I can do.

Thanks!!