If I use the following to add records from one Database to another :

VB Code:
  1. Do While Not rstHDNET.EOF
  2.  
  3.                 With rstLabel
  4.  
  5.                     .AddNew()
  6.  
  7.                     .Fields("PROD_CODE").Value = rstHDNET("Q$LITM").Value
  8.                     .Fields("PROD_DESC").Value = rstHDNET("Q$DSC").Value
  9.                     .Fields("PROD_PRICE").Value = Math.Round(rstHDNET("Q$SRP").Value, 2)
  10.  
  11.                     .Update()
  12.  
  13.                 End With
  14.  
  15.                 prgMain.Value = rstHDNET.AbsolutePosition
  16.                 rstHDNET.MoveNext()
  17.                 Application.DoEvents()
  18.  
  19.                 lblCount.Text = "Record Number " & rstHDNET.AbsolutePosition & " of " & rstHDNET.RecordCount
  20.  
  21.             Loop

It will do around 130000 records in about 10 minutes.

If I use a dataset and use the mydataadapter.update(mydataset, "tablename") it takes absolutley donkeys years. Like around 3 hours or something.

Am I doing something wrong or what???