Data type mismatch in criteria expression delphi

Question

I get an error message when using ADOQuery. My Error Message:

data type mismatch in criteria expression.

This my code

 CtkTransJual2.adoQuery1.close;
 CtkTransJual2.adoQuery1.Parameters.ParamByName('vTgl1').Value:=TglAwal.date;
 CtkTransJual2.adoQuery1.Parameters.ParamByName('vTgl2').Value:=TglAkhir.date+1;
 CtkTransJual2.adoQuery1.Parameters.ParamByName('kodeCustomer').Value:=combobox2.Text;
 CtkTransJual2.adoQuery1.Open;

I have also changed parameter properties DataType for kodeCustomer from ftString to ftWordString, but still not working