Ciao ragazzi premetto che sono alle prime armi con VB

ho questo codice:
codice:
Private Sub Command1_Click()
  
  cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\\saggi.mdb"
  cn.Open
  
  sSql = ""
  sSql = sSql & "SELECT ISF" & vbCrLf
  sSql = sSql & "FROM ISF-AM" & vbCrLf
  
  Set rs = cn.Execute(sSql)

  
  While Not (rs.EOF)
    isfval.AddItem rs("ISF")
       
    rs.MoveNext
  Wend
  
  rs.Close
End Sub
che però mi restituisce questo errore
errore di run-time 424
necessario oggetto

a questa riga
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\\saggi.mdb"

é un problema di mia incapacità o di mdac o simili?