Private Sub Combo3_Change()
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase("c:\windows\desktop\Visual Basic Projects\Bst_Drawing.mdb")
Set rs = db.OpenRecordset("SELECT * " & _
"FROM Document_Type ")

'Label35.Caption = rs = abreviation
With Combo3
.Additem rs!Field1
.ItemData(.NewIndex) = rs!Field2
End With

'Then when you select an entry
Label35 = Combo3.ItemData(Combo3.ListIndex)
End Sub




I'm getting a method or data member not found error for the ".AddItem"

Which Field is the one from the combo box and which one is the data I'm trying to extract?