It is a standard ComboBox with the following code to populate the box:

Do While Not adoSiteRS.EOF
cmbDiveSite.AddItem RTrim(adoSiteRS("SN"))
cmbDiveSite.ItemData(cmbDiveSite.NewIndex) = adoSiteRS("RN").Value
adoSiteRS.MoveNext
Loop

After it is populated, I need it to move to the record # stored in the field "SN" of the recordest adoLogRS (The actual data stored in the adoLogRS("SN") is the record number adoSiteRS("RN")