Dim Cmd As New OleDb.OleDbCommand()

        Cmd.Connection = Conn
        Cmd.CommandText = "SELECT * FROM [Foglio1$] WHERE ColonnaStringa = ? AND ColonnaNumerica = ? AND ColonnaData = ?"

        Cmd.Parameters.Add(New OleDb.OleDbParameter("@ColonnaStringa", "Ciao Mondo!"))
        Cmd.Parameters.Add(New OleDb.OleDbParameter("@ColonnaNumerica", 100))
        Cmd.Parameters.Add(New OleDb.OleDbParameter("@ColonnaData", Date.Now))

        Dim DA As New OleDb.OleDbDataAdapter(Cmd)

        DA.Fill(DT)