////////////////////////////////////////////
Private Sub Cerca(sender As Object, e As EventArgs)

' RECUPERO I DATI DAL MODULO
Dim stringa As String = Replace(txtStringa.Text, "'", "''")
Dim stringa2 As String = Replace(txtStringa2.Text, "'", "''")
' CONTROLLO CHE SIA STATO SPECIFICATO UN CRITERIO DI RICERCA

If Len(Trim(stringa)) < 3 Then

Risultato.Text = "Inserire un termine di almeno 3 caratteri"
Else

Dim i As Integer = 0

' DIVIDO LE PAROLE CHIAVE IN UN ARRAY DI STRINGA

' UTILIZZANDO UNO SPAZIO VUOTO COME SEPARATORE

Dim s() As String = Split(stringa, " ")
Dim s2() As String = Split(stringa2, " ")

' CREO LA STRINGA SQL *

Dim SQL As String = "SELECT * FROM Iscritti WHERE"
For i = 0 To UBound(s)

If i > 0 Then SQL += " AND"
SQL += " Cognome LIKE '%" & s(i) & "%'"
SQL += " AND"
SQL += " nome LIKE '%" & s2(i) & "%'"
Next

' APRO LA CONNESSIONE E LANCIO LA QUERY IN UN RECORDSET

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("~/app_data/xxxxxxxxx.mdb"))

rs.Open(SQL, cn, 1)


If rs.EOF Then

Risultato.Text = "Nessun risultato per la ricerca"
Else
///////////////////////////
Salve, premetto il mio essere neovita di .Net, sto smanettando con questo codice, tirando fuori dei record incrociando con where su due colonne di access ( nome) e (Cognome).

funge tutto bene fino a quando non incontro un cognome separato da uno spazio come questo:

De Santis

Il sistema mi restituisce ils eguente errore:

Indice oltre i limiti della matrice

potete darmi una mano per risolvere la cosa...?
vi ringrazio in anticipo

Hosrus76