求助：自动增长字段在添加记录后无法及时更新

Dim strConnection As String
   Dim strPath As String
   Dim strFileName As String   
   strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\dir\结果.mdb;Persist Security Info=False"   
   Set cnn = New ADODB.Connection
   cnn.Open strConnection   
   Set rst = New ADODB.Recordset
   rst.CursorLocation = adUseClient
   rst.Open "文件名集合", cnn, adOpenDynamic, adLockOptimistic   
   strPath = Trim(txtPath.Text)   
   strFileName = Dir(strPath)   
   While Not rst.EOF
      rst.Delete
      rst.Update
      rst.MoveNext
   Wend   
   Do While strFileName <> ""      
      If Right(strFileName, 3) = "xls" Then
         rst.AddNew            
            rst.Fields("文件名").Value = strFileName      
         rst.Update
      End If      
      strFileName = Dir      
   Loop
   Set DataGrid.DataSource = rst如上代码是用来将某个文件夹下所有扩展名为xls的文件名导入到某个mdb文件里去，数据库表内有两个字段，一自动增长的"ID"和一个程序添加的"文件名",问题在于：执行过后数据库里确实多了正确数量的记录和文件名，但是自动增长的"ID"在datagrid里显示的全是“0”，打开数据库里是正确的。
谢谢。