我做一个系统，需要一个编号：日期+001——往后排，每天的第一条记录的编号都从001开始

Private Sub Command1_Click()
    Dim Ser As String
For i = 90 To 100
    Ser = IIf(Len(i) = 1, "00" & i, "0" & i)
    Ser = IIf(Len(i) > 2, i, Ser)
    List1.AddItem Format(Date, "YYYYMMDD") & Ser
Next i
End Sub