Mi dice che gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto
devo modificare la stringa sull'open????


Sub EseguiQuery()

Dim sSql As String
Dim sWhere As String

Dim Conn As ADODB.Connection
Set Conn = New ADODB.Connection
Dim RSt As ADODB.Recordset


Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Database18.mdb; User ID=admin;Password="";"

sSql = "SELECT Clienti.Cod_Cliente, Clienti.Cognome, Clienti.Nome, Clienti.Città, Clienti.[Indirizzo 1], Clienti.[Indirizzo 2], Clienti.CAP, Clienti.[Telefono 1], Clienti.[Telefono 2], Clienti.Cellulare, Clienti.FAX, Clienti.Email, Clienti.[Data di Nascita], Clienti.Nazionalità, [Categoria Professionale].[Tipo categoria], [Categoria Classe].[Categoria Classe]FROM [Categoria Professionale] INNER JOIN ([Categoria Classe] INNER JOIN Clienti ON [Categoria Classe].Cod_classe = Clienti.Cod_Classe) ON [Categoria Professionale].cod_Categoria = Clienti.Cod_Categoria"

sWhere = ""

If Cognome <> "" Then
sWhere = sWhere & " Clienti.Cognome LIKE '" & Replace(Cognome, "'", "''") & "'"
End If

If Nome <> "" Then
If sWhere <> "" Then sWhere = sWhere & " AND "
sWhere = sWhere & " Clienti.Nome LIKE '" & Replace(Nome, "'", "''") & "'"
End If

If sWhere <> "" Then
sSql = sSql & " WHERE " & sWhere
End If

Set RSt = Conn.Execute(sSql)

End Sub