Progress bar i VBA (Word)

Hej.

Jeg kører en forespørgsel til en Database i Access på nedenstående måde (DAO 3.6). Hvordan kan jeg i min Userform indsætte en Progress bar? Jeg kan godt lave en makro, der udfylder en label i en frame, men den er jo langt fra præcis.

-------------------------------------

Private Sub commandbutton5_click()
On Error GoTo errorhandler
Dim db As Database
Dim rs As Recordset
Dim strSQL As String

TextBox6.Value = UCase(TextBox6.Value)

Set db = OpenDatabase("o:\cs\marlin\mirror.mdb")

strSQL = ("SELECT * FROM [quest] WHERE KENDBOG = '" & TextBox6.Value & "'")

Set rs = db.OpenRecordset(strSQL)

TextBox1 = ""
TextBox1 = rs!NAVN
TextBox2 = ""
TextBox2 = rs!TYPE
TextBox3 = ""
TextBox3 = rs!NUMMER
TextBox4 = ""
TextBox4 = rs!HJEM
TextBox5 = ""
TextBox5 = rs!KONTROL
TextBox8 = ""
TextBox8 = rs!BARTNR
TextBox9 = ""
TextBox9 = rs!EFFEKTKVOT
ComboBox1 = ""
ComboBox1 = rs!KLASSENR

Exit Sub
errorhandler:
' Errorhandler her
End Sub