1. 简化运算有专门的运算符，AndAlso,OrElse
公司专注于为企业提供成都网站建设、做网站、微信公众号开发、商城网站定制开发，成都小程序开发，软件按需开发网站等一站式互联网企业服务。凭借多年丰富的经验，我们会仔细了解各客户的需求而做出多方面的分析、设计、整合，为客户设计出具风格及创意性的商业解决方案，创新互联建站更提供一系列网站制作和网站推广的服务。
2.没用过，似乎是位运算，分别为位与，位或，位异或
str = "insert into out ( 姓名 , 租出日期 , 规格 , 数量 )values(" txtname.Text " , " txtday.Text " , " txtnorm.Text ", " txtamount.Text ")"
估计问题出在这里，把语句用到access中运行下试试
这个只能是一一判断的：
为了叙述简单，假设有两个可选条件，内容在： TextBox1(姓名)、TextBox2（部门）
主要是构造 Sql的Where子句，那么：
Dim MySqlWhere As String
MySqlWhere=""
If TextBox1.Text"" Then
MySqlWhere= " Where 姓名 = '" TextBox1.Text "'"
End If
If TextBox2.Text"" Then
if MySqlWhere="" Then
MySqlWhere= " Where 部门 = '" TextBox1.Text "'"
Else
MySqlWhere= MySqlWhere " And 部门 = '" TextBox1.Text "'"
End If
End If
'如果还有第3，第4，那只能这样了：
If TextBox3.Text"" Then
if MySqlWhere="" Then
MySqlWhere= " Where 字段3 = '" TextBox3.Text "'"
Else
MySqlWhere= MySqlWhere " And 字段3 = '" TextBox3.Text "'"
End If
End If
......
If TextBoxn.Text"" Then
if MySqlWhere="" Then
MySqlWhere= " Where 字段n = '" TextBoxn.Text "'"
Else
MySqlWhere= MySqlWhere " And 字段n = '" TextBoxn.Text "'"
End If
End If
注意：对于字符类型的字段，当然要用单引号，上面那样的，但是对于数值类型，就不要这个单引号的；但是对于日期类型，那么与字符类型不同的是，把前后的2个单引号，改为井号就是“#”， 这是很多初学者容易忽略的，也是很多教科书上不提的问题。
对于文本框，由于.NET不提供控件数组，但是还是可以用语句来实现类似数组的操作，这样以上IF语句，就可以简化。
你那个不是空格吧，是不是多余的tab呢，这样试试
Dim b As String = replace(Trim(strItemValue(i+1)),chr(9),"")
在逻辑运算中表示 或者
称作逻辑或
用法 if 1 or 0 then print 111
