giusto e infatti ho provato in questo modo e mi funziona... dimmi se va bene così la scrittura


codice:
Dim rs1 As New OleDb.OleDbCommand(
         "SELECT * FROM cmplnn WHERE nome LIKE ? AND data Like ? AND cognome Like ? ", con)
        rs1.Parameters.Add("?", OleDbType.Integer).Value = varid
        rs1.Parameters.Add("?", OleDbType.BSTR).Value = TextBox1.Text
        rs1.Parameters.Add("?", OleDbType.BSTR).Value = TextBox2.Text
        rs1.Parameters.Add("?", OleDbType.Date).Value = vardata

        Dim da As New OleDbDataAdapter(rs1)
        da.Fill(dt)