Function sync(tbl As String, prg As ProgressBar, labl As Label, capt As String)
 
rsdb1_3.Open ("SELECT * FROM " & tbl & "")
rsdb2_3.Open ("SELECT * FROM " & tbl & "")
 
Dim fd As Field
 
For Each fd In rsdb1_3.Fields
 
If Not fd.Value = rsdb2_3.fd.Value Then fd.Value = konf(tbl, fd.Value, _
  rsdb2_3.fd.Value)
 
Next
 
MsgBox "OK FERTIG"
 
End Function