VB6 - reset ID AutoNumber field in ms access table

Private Sub delete_Click()
    Select Case MsgBox("Do you realy want to delete that record " & ID_NUM.Text & " ?", vbYesNo Or vbQuestion Or vbSystemModal Or vbDefaultButton1, "Delete...")

    Case vbYes

        Set con = New ADODB.Connection
        con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & link_for_base.Caption
        con.Open
        con.Execute ("DELETE * From [TDM_Rate_form_no1] WHERE ID= " & ID_NUM.Text)
        con.Close

        con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;;Data Source=" & link_for_base.Caption
        con.Open
        rs.Open "select * from TDM_Rate_form_no1", con, adOpenDynamic, adLockOptimistic
        Set MSHFlexGrid1.Recordset = rs
        rs.Close

    Case vbNo

    End Select
End Sub