Where am I going wrong? I am trying to have the list item I select
show up in a text box. Right about where the name of my recordset is
(datData2.Recordset.FindFirst strCriteria), I get a variable not
defined(datData2. is blue in Debug, the sub name is yellow). I can't
even figure out how to define a Recordset or a DataControl. Should I
be using a DBList box, or populating a combo box with .AddItem?

Private Sub DBCombo1_Click(Area As Integer)
Dim CustomerID As String
Dim strCriteria As String
strCriteria = "CompanyName'" & DBCombo1.Text & " ' "
datData2.Recordset.FindFirst strCriteria
txtAccount.Text = dataData2.Recordset(CustomerID)
End Sub

Sub name highlighted in Yellow tells us that the sub won't compile because
of the error.

Variable not defined and highlighting Data2 shows that you don't have a data
control called Data2 on your form.

If you don't know about DataControls and Recordsets then you need to read
the VB Programmers Guide - Chapter 14 Pages 675-711

To start with you are probably better off using standard ComboBoxes rather
than dbCombos.

Regards,
Simon Jones
PC Pro Magazine