If you read English, take a look at this page:

http://msdn.microsoft.com/library/default.asp?
url=/library/en-us/dnacbk02/html/ODC_CookbookChapter9.asp

It is a reusable progress bar form.

The status bar progress meter sample can be found at this
page, procedure follows:

http://msdn.microsoft.com/library/default.asp?
url=/library/en-us/bapp2000/html/acbachap06.asp

Sub AddEmployeeNotes()

Dim dbsNorthwind As DAO.Database
Dim rstEmployees As DAO.Recordset
Dim strMsg As String
Dim intRet As Integer
Dim intCount As Integer
Dim strSQL As String
Dim sngPercent As Single
Dim varReturn As Variant
Dim lngEmpID() As Long

On Error GoTo ErrorHandler

  Set dbsNorthwind = CurrentDb

  strSQL = "SELECT * FROM Employees"
  Set rstEmployees = dbsNorthwind.OpenRecordset(strSQL,
dbOpenDynaset)

  With rstEmployees
     If .EOF Then            ' If no records, exit.
        Exit Sub
     Else
        strMsg = "Processing Employees table..."
        intRet = SysCmd(acSysCmdInitMeter, strMsg, 100)
     End If

     Do Until .EOF
        If !HireDate < #1/1/93# Then
           .Edit
           !Notes = !Notes & ";" & "Senior Staff"
           .Update
        End If

        If .PercentPosition <> 0 Then
           intRet = SysCmd
(acSysCmdUpdateMeter, .PercentPosition)
        End If
        .MoveNext
     Loop
  End With

  intRet = SysCmd(acSysCmdRemoveMeter)

  rstEmployees.Close
  dbsNorthwind.Close

  Set rstEmployees = Nothing
  Set dbsNorthwind = Nothing

Exit Sub

ErrorHandler:
  MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf &
Err.Description
  varReturn = SysCmd(acSysCmdSetStatus, " ")
End Sub

David