sul form1 metto la progress bar con un commandbutton che contiene:

codice:
Private Sub cmdXML_Click()
If txtnome.Text <> "" Then
 If Right(txtnome.Text, 4) <> ".xml" Then
  txtnome.Text = txtnome.Text + ".xml"
 Else
 End If
Else
 MsgBox "Specificare un nome!!", vbCritical, "AlphaTeam - XML"
 Exit Sub
End If
If Len(MaskEdBox1.Text) = 10 And Len(MaskEdBox1.Text) = 10 And MaskEdBox1.Text < MaskEdBox2.Text Then
txt1.Text = Trim$(Mid$(MaskEdBox1.Text, 7, 4)) & Trim$(Mid$(MaskEdBox1.Text, 4, 2)) & Trim$(Mid$(MaskEdBox1.Text, 1, 2))
txt2.Text = Trim$(Mid$(MaskEdBox2.Text, 7, 4)) & Trim$(Mid$(MaskEdBox2.Text, 4, 2)) & Trim$(Mid$(MaskEdBox2.Text, 1, 2))
Else
MsgBox "Selezionare un corretto intervallo di date!", vbCritical, "XML - AlphaTeam S.r.l."
Exit Sub
End If
Xml.Show
End Sub
ed è proprio su questo form che ho messo la progress bar, ma ....
MA questa progress bar deve caricarsi in base al numero dei record che vengono processati nella Loop:

Questa loop si avvia quando dal cmdXML_CLick si avvia l'istruzione xml.show

nell'xml o meglio nell'evento Form_Load c'è:
un semplice
codice:
 Do While Not rs.EOF
..............
 rs.movenext
 LOOP
ecco come fare a far muovere la progress bar sul form1 ossia dove ho cliccato il pulsante XML_CLICK.

Grazie