Access database search using dbCombo

[Caro]

I am using a DBCombo control to search for a company name in a table. I can drop down OK and get a list of names alphabetiaclly but when I click on one for selection, I update a different record with the name selected. I think the one I update is the one I stared with. Any ideas as to where I'm going wrong?

[johnpc]

In your search, have you "Ordered By Record_Number"? Then used a search string to
verify your selection?

The following Loads the ComboBox:

Private Sub LoadcboBox()
 ' Add items to the ComboBox
   Dim strSQL As String  'Must put in each Sub that makes a SQL Call


   strSQL = "SELECT "
   strSQL = strSQL & "* FROM "
   strSQL = strSQL & "tblItems "
   strSQL = strSQL & "ORDER BY Record_Number"
   
   Set oRS = New Recordset
   oRS.Open strSQL, goConn, adOpenStatic, adLockReadOnly
   
   'To load a combobox with values from a database, we can use
   'a special control (the datalist control - see under project
   'components) or by using objects. Loop through each value
   'in the recordset and use the .AddItem method for filling
   'in the combobox.
   With oRS
      .MoveFirst
      
      Do Until .EOF
         cboBox1.AddItem !Record_Number
         .MoveNext
      Loop
      
      .Close
   End With
End Sub
'''''''''''''''''''''''''''''''''''
'Now that the ComboBox is loaded
'Get what we want
''''''''''''''''''''''''''''''''''
Private Sub cboBox1_Click()
'Search the databse for the proper Item
  Dim strSQL As String  'Must put in each Sub that makes a SQL Call

  'Set the SearchString through the ComboBox
   strSearchString = Box1

   strSQL = "SELECT "
   strSQL = strSQL & "* FROM "
   strSQL = strSQL & "Item"
   strSQL = strSQL & "ORDER BY Record_Number"
   
   Set oRS = New Recordset
   oRS.Open strSQL, goConn, adOpenStatic, adLockReadOnly
   
  Dim RecNo as Integer
   With oRS
      .Find "Record_Number = '" & SearchString & "'"If Not (.EOF) Then
        'This is what we are looking for

        RecNo= !AnotherField
End If
    
     
    .Close
     
   End With
End Sub