Konfliktløsning på replikering

Jeg sender her lidt kode som jeg anvender til konfliktløsning på en Access database.
Koden skal køres på alle databaserne i replika sættet, samt masterdatabasen.
God vind.
Hilsen Dalkaer

*****************************************

Function Konfliktloeser()
\'
On Error GoTo Errorhandler

    Dim repMaster As New JRO.Replica
    Dim Var_ReplicaNavn As String
    Dim Var_Databasenavnet As String
    Dim rs As New ADODB.Recordset
   
    CommonDialog1.Filter = \"Access (*.mdb)|*.mdb|MSDE (*.adp)|*.adp\"
    CommonDialog1.DialogTitle = \"Vælg Masterdatabase\"
    CommonDialog1.FilterIndex = 1
    CommonDialog1.ShowOpen
    If Not IsBlank(CommonDialog1.FileName) Then
      Var_DatabaseNavn = CommonDialog1.FileName
      Var_Serversti = FjernFilnavn(Var_DatabaseNavn)
    End If
  \' Connect to the database.
    repMaster.ActiveConnection = Var_DatabaseNavn \'\"C:\\Program Files\\Microsoft Office\\Office\\Samples\\Northwind.mdb\"
   
    Set rs = repMaster.ConflictTables
    If Not rs.EOF Then
      rs.MoveFirst
      While Not rs.EOF
          Debug.Print rs(0) & \" has a conflict and\"
          Debug.Print rs(1) & \" is the name of the a conflict table.\"
          rs.MoveNext
      Wend
    End If
   
Exit_Errorhandler:
  Exit Function
Errorhandler:
  MsgBox Err.Description, , Err.Number
End Function

**************************************

Jeg har faktisk selv løst problemet i mellemtiden, men eftersom du er den eneste der har kunnet give mig lidt respons, synes jeg du fortjener pointene

:) Michael

Tak