Ho ottimizzato un po' il codice aggiungendo un command facendo una prova su un'altra tabella (Customer)

ora mi dà solo questo errore

"Variabile oggetto o variabile del blocco with non impostata"

La riga incriminata è la rossa




codice:
  
 

Private Sub Command1_Click() 
Dim cn As New ADODB.Connection 
Dim rs As New ADODB.Recordset 
Dim strSql As String, strDB As String 

strDB = "C:\VB6ordprova\ordini.mdb " 
cn.ConnectionString = "Provider =Microsoft.Jet.OleDB.4.0; " _ 
& "data source=" & strDB & "; Persist security info=False;" 
cn.Open 

strSql = "SELECT nominativo FROM customer" 
rs.Open strSql, cn, 1, 3 

Set DBCombo1.RowSource = rs   
DBCombo1.ListField = "nominativo" 
DBCombo1.Refresh 
End Sub



P.s. Sto provando con una DataCombo ora