sqlstr = "select DOCCODE,DOCNAME,DOCOTHERDTLS from tbl_adm_ms_doctor where docactive<>'I'"
If Len(Trim(code)) <> 0 Then
sqlstr = sqlstr & " AND DOCCODE like'" & code.ToUpper & "%'"
End If
If Len(Trim(desc)) <> 0 Then
sqlstr = sqlstr & " AND DOCNAME like'%" & desc.ToUpper & "%'"
End If
sqlstr = sqlstr & " order by DOCCODE"
cmd.CommandText=sqlstr