AppiceSQL

Dim StringaDaRicercare as String
StringaDaRicercare = Text1.Text
Data1.RecordSource = "Select * from Dipendenti where _
Cognome = '" & StringaDaRicercare & "'"
Data1.Refresh
Function StringaPerQuery(stringa As String) As String
Dim lun_str As Integer
Dim k0 As Long
Dim k1 As Integer
Dim car As String
Dim strbuff As String
k0 = InStr(stringa, Chr$(39))
If k0 > 0 Then
strbuff = Mid$(stringa, 1, k0 - 1)
lun_str = Len(stringa)
For k1 = k0 To lun_str
car = Mid$(stringa, k1, 1)
If car = Chr$(39) Then car = Chr$(39) & Chr$(39)
strbuff = strbuff & car
Next k1
End If
StringaPerQuery = strbuff
End Function

'Da richiamare come segue:

Dim StringaDaRicercare as String
StringaDaRicercare = StringaPerQuery (Text1.Text) 'chiama la funzione...
Data1.RecordSource = "Select * from Dipendenti where _
Cognome = '" & StringaDaRicercare & "'"
Data1.Refresh