Non mi carica i valori in questo datacombo.Sapete dirmi cosa c'è di sbagliato?L'errore sta nella riga in neretto, e precisamente è:
Object variable or with block variable not set
Vi posto tutto il codice:
QUESTO E' IL FORM

codice:
Private Sub Form_Load()
   Call connetti
   Rs.Open "SELECT * FROM tab_tabella " ' apre il recordset leggendo tutti i campi dalla tabella
Set DataCombo1.RowSource = Rs 
  DataCombo1.BoundColumn = "ID_tab"   'campo ID da nascondere
  DataCombo1.ListField = "nome" ' campo da visualizzare
  DataCombo1.Refresh
end sub
QUESTO E' IL MODULO DA CUI PRENDE IL CODCIE PR LA CONNESIONE AL DATABASE

codice:
Option Explicit

Public Cn As New ADODB.Connection
Public Rs As New ADODB.Recordset

Sub connetti()
   With Cn
      .ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0;" & _
                          "Data source = " & App.Path & "\db.mdb"
                          
                          'nella prima riga si specifica il provider
                          'nella seconda il percorso al db
      .ConnectionTimeout = 5 'numero dei secondi di timeout
      .CursorLocation = adUseClient 'tipo di cursore
      .Mode = adModeShareDenyNone 'nessuna limitazione
      .Open 'apertura ricordarsi di chiuderla
   End With
   With Rs
      .ActiveConnection = Cn ' imposta a che connessione si riferisce
      .LockType = adLockOptimistic ' imposta il tipo di lock
   End With
End Sub
Grazie!