如何实现批量上传更新数据库

各位大虾，我在网上找了个源代码，可以实现上传excel新增数据功能，但是不能实现批量更新。如果发现有重复记录会报错并不导入。如何调整一下，可以实现如果发现重复记录（主键），就把后面的非空记录用覆盖原记录的功能啊？

    For lngI = 2 To lngRows + 1

        rst.AddNew

        For lngJ = 1 To UBound(strFld)

            If Len(strFld(lngJ)) > 0 Then

                strErrFld = "【" & strFld(lngJ) & "】"

                varTemp = Null

                varTemp = objSheet.Cells(lngI, lngJ)

                If Len(varTemp) = 0 Then

                    varTemp = Null

                Else

                    Select Case rst(strFld(lngJ)).Type

                        '转换“是/否”，“TRUE/FALSE”，“YES/NO”为布尔值

                    Case DB_BOOLEAN

                        If varTemp = "否" Or varTemp = "FALSE" Or varTemp = "No" Then

                            varTemp = True

                        End If

                        '如果日期值使用点号作为分隔符，转换为杠号

                    Case DB_DATE

                        If varTemp Like "*.*" Then

                            varTemp = CDate(Replace(varTemp, ".", "-"))

                        End If

                    Case DB_BYTE, DB_INTEGER, DB_LONG, DB_SINGLE, DB_DOUBLE, DB_CURRENCY

                        varTemp = Nz(varTemp, 0)

                    End Select

                End If

                rst(strFld(lngJ)) = varTemp

            End If

        Next

        rst.Update

NextRow:

        strErrFld = ""

        If ((lngI - 1) Mod 100 = 0) Or (lngI - 1 = lngRows) Then

            Me.ProgressBar4.Value = lngI - 1

            Me.lblStatus.Caption = "导入进度 " & lngI - 1 & "/" & lngRows & " 行  " & _

                                   "用时 " & Format(Timer() - sngStartTime, "0.00") & " 秒"

            Me.Repaint

        End If

    Next

    blnIsStarted = False

    rst.Close