Ci sono degli errori nel tuo listato, ho inserito le correzioni in grassetto:
1) il valore minimo è 0, non puoi assegnargli il valore della proprietà BOF per 2 motivi: è di tipo booleano e indica semplicemente se ti trovi all'inizio del recordset.
2) Inizializzi il valore della ProgressBar a 0
3) per ogni record che leggi incrementi di uno il valore della ProgressBar


codice:
Private Sub loadcombo()
    
    prgLoadData.Visible = True
    prgLoadData.Min = 0
    prgLoadData.Max = datComuni.Recordset.RecordCount
    prgLoadData.Value = 0
    Do While Not (datComuni.Recordset.EOF)
        CmbCitta.AddItem (datComuni.Recordset!comune)
        prgLoadData.Value = prgLoadData.value + 1        
        datComuni.Recordset.MoveNext
    Loop
    
End Sub

Spero sia abbastanza chiaro, fammi sapere...
Ciao!!