向access添加数据 如何使数据的id从1开始

Dim Link As New ADODB.Connection
        Dim Rs As New ADODB.Recordset         Dim