[Private Sub Form_Load() FillCombo End Sub Sub FillCombo() Dim rs As New ADODB.Recordset, SQL As String SQL = "Select Spare_Name from Spare" rs.Open SQL, Conn, adOpenDynamic, adLockOptimistic Dim i As Integer For i = 1 To rs.RecordCount cboSpare.AddItem rs("Spare_Name") rs.MoveNext Next MsgBox...