codice:
Set db = OpenDatabase(App.Path & "\Db.mdb")
sql = "select * from Clienti where Ragso = " & _
      "'" & Replace(cmbragso.Text, "'", "''") & "'"
Set rs = db.OpenRecordset(sql)