Hey i read your post and i just slapped a command button
a combobox and a textbox on a form and tried to figure out
your problem real quick before i go out. It's friday night you know! {{{Laughing}}}

Option Explicit
Dim db As Database
Dim rs As Recordset

Private Sub Combo1_Click()
Text1.Text = Combo1.Text
End Sub

Private Sub Command1_Click()
Dim i As Integer
rs.MoveFirst
For i = 1 To rs.RecordCount
If rs!AccountID = Text1.Text Then
Combo1.Text = Text1.Text
End If
rs.MoveNext
Next i
End Sub

Private Sub Form_Load()
Dim i As Integer
Set db = OpenDatabase("C:\SoilTicketPrintingProgram\SoilTicketdb\SoilTicketdb.mdb")
Set rs = db.OpenRecordset("Account Information")
For i = 1 To rs.RecordCount
Combo1.AddItem rs!AccountID
rs.MoveNext
Next i
End Sub

Private Sub Form_Unload(Cancel As Integer)
rs.Close
db.Close
End Sub