ACCESS导入XML过程加入什么代码能将导入的数据添加到新记录中

下面代码添加什么内容能实现：如果当前不是新记录，则自动转到新记录

Private Sub Command4_Click()

    Dim rst    As DAO.Recordset
    Dim i
    Dim Myfiledialog As FileDialog


    CurrentDb.Execute "delete * from 表1"
    Set Myfiledialog = Application.FileDialog(msoFileDialogOpen)
    With Myfiledialog
        .AllowMultiSelect = False


        .Filters.Add Choose(Me.Frame7, "CSV", "HTM", "XML"), "*." & Choose(Me.Frame7, "CSV", "HTM", "XML"), 1
        .FilterIndex = 1
        .Show
    End With
    Select Case Me.Frame7
    Case 1
        Me.Spreadsheet0.CSVURL = Myfiledialog.SelectedItems(1)
    Case 2
        Me.Spreadsheet0.HTMLURL = Myfiledialog.SelectedItems(1)
    Case 3
        Me.Spreadsheet0.XMLURL = Myfiledialog.SelectedItems(1)
    End Select


    Set rst = CurrentDb.OpenRecordset("表1")
    With Me.Spreadsheet0
        For i = 2 To Me.Spreadsheet0.ActiveSheet.UsedRange.Rows.Count
      '      If .Cells(i, 1) = "" Then Exit For
            rst.AddNew
            rst(0) = .Cells(i, 1)
            rst(1) = .Cells(i, 2)
            rst.Update
        Next
    End With
    MsgBox "完成！"
End Sub