fammi capire bene,
tu vuoi caricare un recordset con una select sulla tabella fornitori e caricare la combo solo se esiste almeno un fornitore, giusto?

bene, se così fosse utilizza la sub Form_Load() controllando la proprietà RecordCount del recordset, in questo modo:
codice:
Private Sub Form_Load()

   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

   If RsOrdNFor.RecordCount = 0 Then
            MsgBox "Nessun Fornitore esistente per creare " & _
                   "un ordine"
       Else
            'Questa attività se esistono fornitori
            Inizializza_Combo 
            ControlloDB = False
   End If
  
End Sub