[VB] ProgressBar tra 2 Database .... PROBLEMONE!!!

[race2]

Ho 2 Database,

1)Excel 2000 ed e'carico di 6000 righe di dati,
1)SQL Server 2000 ed e' vuoto,

voglio trasferire i dati da Excel a SQL Server,

voglio applicare una ProgressBar a tale processo, uno dei metodi che ho pensato e:

valore minimo-->0
valore massimo-->totale righe da trasferire
progressione--->riga attuale che sto trasferendo

Questo e' la mia ProgressBar (codice preso direttamente nella guida del Visual Studio .NET):


Private Sub CopyWithProgress(ByVal ParamArray filenames As String())
' Display the ProgressBar control.
pBar1.Visible = True
' Set Minimum to 1 to represent the first file being copied.
pBar1.Minimum = 1
' Set Maximum to the total number of files to copy.
pBar1.Maximum = filenames.Length
' Set the initial value of the ProgressBar.
pBar1.Value = 1
' Set the Step property to a value of 1 to represent each file being copied.
pBar1.Step = 1

' Loop through all files to copy.
Dim x As Integer
for x = 1 To filenames.Length - 1
' Copy the file and increment the ProgressBar if successful.
If CopyFile(filenames(x - 1)) = True Then
' Perform the increment on the ProgressBar.
pBar1.PerformStep()
End If
Next x
End Sub



Come posso fare per aggangiarla al processo di trasferimento dei dati ???