Private Sub Form_Load() Dim n As Integer cbAno.RowSource = "" For n = 2004 To Format(Date, "yyyy") - 1 cbAno.RowSource = cbAno.RowSource & n & ";" Next cbAno = Format(Date, "yyyy") - 1 End Sub Private Sub Form_Open(Cancel As Integer) If Format(Date,...