Update/Insert af data i SQL vha. Recordset

Jeg skal have opdateret en masse records (5000+) i en SQL DB og have Inserted nye hvis hvis ikke de eksisterer i tabellen.
Hvorledes kan dette gøres ved brug af Recordset uden at lave en kilometer trafik og SQL server arbejde?

Pt. gør jeg flg:

...
Set oSrcRS = CreateObject("ADODB.Recordset")
Set oDestRS = CreateObject("ADODB.Recordset")
...
Do until oSrcRS.EOF
  oDestRS.Filter = "MitFelt = '" & oSrcRS.Fields("MitFelt") & "'"
  If oDestRS.BOF OR oDestRS.EOF Then
    oDestRS.AddNew
  End If
  oDestRS("MitFelt") = oSrcRS.Fields("MitFelt")
  ...
  oDestRS.Update
  oSrcRS.MoveNext
Loop
...

Ovenstående tager jo bare en krig !? :(
Stored procedures er udelukket til ovenstående, idet Src data hentes de mest okkulte steder fra.