VB自动编号问题，求助！

我用adodc控件连接数据库后，设置了新增后自动编号，数据库有数据的时候运行无问题，但是当数据库只有一个表，没有数据时就提示
源码如下，希望有人能帮我解决，非常感谢
Private Sub Command1_Click()
Dim c As String '定义变量
c = Format$(Now(), "yyyymmdd") '当前日期字符
sn = Adodc1.Recordset.Fields("产品 ID").Value Adodc1.Recordset.MoveLast '最后一条记录
If c <> Mid$(sn, 1, 8) Then '与最后一条记录比较
Adodc1.Recordset.AddNew
sn = c & "01"
T1 = sn
Else
Adodc1.Recordset.AddNew
sn = Right$(sn, 10) + 1
T1 = sn
End If
End Sub