[vb] Problema con Progress Bar

[Teddy]

Scusate ma è la prima volata che uso una progress bar.
Ho creato una routine che carica una tabella da access su una combobox. Vorrei che la progress visualizzasse lo stato di caricamento.Ma non funziona ... cosa non va?

 
Private Sub loadcombo()
    
    prgLoadData.Visible = True
    prgLoadData.Min = datComuni.Recordset.BOF
    prgLoadData.Max = datComuni.Recordset.RecordCount
    
    Do While Not (datComuni.Recordset.EOF)
        CmbCitta.AddItem (datComuni.Recordset!comune)
        prgLoadData.Value = datComuni.Recordset.AbsolutePosition
        datComuni.Recordset.MoveNext
    Loop
    
End Sub