DbComboBox

Have a DBCombo Box on frmClients, I need to select CompayName and populate screen w/ correct Information Key=ClientID. See Code and Data Source Below:
-----------------------ControlData Information--------------------------

MSDBCtls.DBCombo dbcmbCompanyName VB.Data
datClients------------------------
DataField = "CompanyName" Connect = "Access"
DataSource = "datClients" DatabaseName =
"v:\projecttracking.mdb"
ListField = "CompanyName" RecordType = 'Dynaset'
BoundColumn = "" RecordSource = "Clients"
------------------------------------------------------------------------

----------C O D E --------------------C O D E -----------

Private Sub dbcmbCompanyName_Click(Area As Integer)

Find "CompanyName=" & dbcmbCompanyName.ListField
With datClients

txtClientID = MyRec!ClientID
dbcmbCompanyName = MyRec!CompanyName
txtAddress = MyRec!Address
txtCity = MyRec!City
txtStateProvince = MyRec!StateOrProvince
txtPostalCode = MyRec!PostalCode
txtCountry = MyRec!Country
txtContactLastName = MyRec!ContactLastName
txtContactFirstName = MyRec!ContactFirstName
txtContactTitle = MyRec!ContactTitle
txtPhoneNumber = MyRec!PhoneNumber
txtFaxNumber = MyRec!FaxNumber
txtBillingRate = MyRec!BillingRate
txtCreatedDate = MyRec!CreatedDate
txtEmail = MyRec!Email
txtNotes = MyRec!Notes
chkActive = MyRec!ysnActive
chkInternal = MyRec!ysnInternal
End With


End Sub

----------C O D E --------------------C O D E ----------

F O R M
---------------------------------------------------------------
I -----ControlDataBox=datClients----- I
I I
I I
I dbcmbCompanyName-------- ** txtClientId-----------I
I I
I txtAddress------------- txtContactName---------- I
I I
I txtCity--------------- txtvContactTitle----------- I
I I
I txtState-------------- txtPhoneNumber--------- I
I I
I txtPostalCode--------- txtFaxNumber------------ I
I I
I-------------------------------------------------------------I
**Key