Cita:
Iniciado por AlexisLAG 
A simple vista faltaria colocar lo siguiente :
If text_fecha.Text <> "" Then
StrSql = StrSql + "cot_date= ' " & text_fecha + " ' and "
End If
esto deberia ser tomado como valor por eso va entre '. deberas colocarlo en todos los codigos.
de todas formas yo seguire revisando, pero probalo y me contas.
Otro error es que le faltan operadores en algunos if debes colocar and o or, y por mi parte deberias cambiar lo siguiente :
If text_fecha <> "" Then
StrSql = StrSql + " and "
StrSql = StrSql + "cot_date=
' " & text_fecha & "
' "
End If
esto seria para que al final no estes eliminado los ultimos 5 lugares.