Risolto, proprio come diceva Anatroccolo. Grazie.

Posto:

codice:
Private Sub Form_Activate()
If Not (CnOrdNCli.State = adStateOpen And RsOrdNFor.State = adStateOpen) Then
CnOrdNCli.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=GetsMag.mdb;"
 CnOrdNCli.CursorLocation = adUseClient
 qOrdNFor = "SELECT * FROM Fornitori"
 RsOrdNFor.Open qOrdNFor, CnOrdNCli, adOpenDynamic, adLockOptimistic
End If
If RsOrdNFor.RecordCount = 0 Then
MsgBox "Nessun Fornitore esistente per creare un ordine"
ControlloDB = False
Else
With RsOrdNFor
    .MoveFirst
    While Not .EOF
    cmbCliente.AddItem !CognomeNome
    cmbCliente.ItemData(cmbCliente.NewIndex) = RsOrdNFor("IDFornitore").Value
    .MoveNext
    Wend
 End With
ControlloDB = True
End If
RsOrdNFor.Close
CnOrdNCli.Close
End Sub

Private Sub Form_Deactivate()
If ControlloDB = True Then
    cmbCliente.RemoveItem (All)
End If
End Sub

Ciao e grazie.
Sempre preziosissimi.