哈哈自动编号我搞定了，日期加序号的

Private Sub Command1_Click()
    
  Dim strcx As String
    
  riqi = Format(Date, "yyyymmdd") '获取当前日期的8位数字
  
  strcx = "select 楼盘编号 from 楼盘字典 Order By 楼盘编号 Desc" '查询数据库中 楼盘编号 最大值
   
  Adodc1.CommandType = adCmdText
    
  Adodc1.RecordSource = strcx
    
  Adodc1.Refresh  zdbh = Adodc1.Recordset.Fields("楼盘编号") '获得数据库中 楼盘编号 最大值
  
  zdzb = Left(zdbh, 8) '获取 楼盘编号最大值 左边8位
      
   If riqi > zdzb Then
                  zxbh = riqi & "001" '日期 大于 数据库内的楼盘编号记录 就是今天的第一条记录
          Else: zxbh = zdbh + 1 '日期相同，就在今天已有的楼盘编号记录+1
   End If
      
  Text1.Text = riqi  '当前日期
 
  Text2.Text = zdbh  '数据库最大编号
  
  Text3.Text = zxbh  '新的编号
   
End Sub