como Utilizar el Progressbar
 

Compañeros

Como Hago que el Progressbar se me ejecute mientras realiza la siguiente Busqueda

Private Sub XPButton4_Click()
Dim var1 As String
If Combo4.Text = "NACIONAL" Then

Form8.Data1.DatabaseName = "c:\Archivos de Programa\Internacional\Internacional.mdb"
Form8.Data1.RecordSource = "SELECT Total_Nacional.* From Total_Nacional WHERE (((Total_Nacional.Fecha) Between '" & Text6.Text & "'" & " And '" & Text7.Text & "'" & ") )"
Form8.Data1.Refresh

If Not (Form8.Data1.Recordset.EOF) Then
Form8.Data1.Recordset.MoveLast
Form8.Label23.Caption = Form8.Data1.Recordset.RecordCount
Form8.Label28.Caption = "En Despachos Nacionales...>>>"
Text6.SetFocus


Else
MsgBox ("Verifique Bien la Fecha a Buscar....>>>>")
Form8.Label28.Caption = ""
End If
End If

Gracias

mira aqui hay un ejemplo...

http://www.forosdelweb.com/showpost....3&postcount=30

espero te sirva..
nos vemos..