[VB.NET]请大家帮忙看看,多条件查询的问题

<script type="text/javascript"><!--
google_ad_client = "pub-8333940862668978";
/* 728x90, 创建于 08-11-30 */
google_ad_slot = "4485230109";
google_ad_width = 728;
google_ad_height = 90;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>

请大家帮忙看看,多条件查询的问题
代码功能主要是在指定时间与识别号的综合查询，并将数据显示在dataGrid上。
Private Sub btnStat_Click(...)
Dim strFilter As String
If txbIDCard.Text.Trim.Length <> 0 Then
strFilter = "where 识别号 like '' "
strFilter += txbIDCard.Text.Trim + "% '' "
End If

Dim d1 As Date = Me.DateTimePicker1.Value
Dim d2 As Date = Me.DateTimePicker2.Value
Dim connectionString As String = "Persist Security Info=False;Integrated Security=SSPI;Database=shipping;Server=localhost "

Dim da As New SqlClient.SqlDataAdapter da.SelectCommand.CommandText = "SELECT 预定单号, 入库时间, 出库时间, 识别号 FROM 预定单 WHERE 入库时间> = '' " & d1 & " '' AND 出库时间 <= '' " & d2 & " '' " + strFilter ''问题可能在这
Dim ds As New DataSet
da.Fill(ds)
dataGrid1.DataSource = ds.Tables(0)
end sub

问题可能是strFilter与入出库时间的联合查询上，请大家帮我改改，谢谢了。
__________________________________________________________________________
检查下da.SelectCommand.CommandText的输出信息

你会发现da.SelectCommand.CommandText 多了一个where~~~

改:
If txbIDCard.Text.Trim.Length <> 0 Then
strFilter = "and 识别号 like '' "
strFilter += txbIDCard.Text.Trim + "% '' "
End If
__________________________________________________________________________
一看就知道两个条件连不起来..你的加号在里面没有用.用AND连接.
__________________________________________________________________________
楼上的hainannewcon，请问怎么解决？
__________________________________________________________________________
没有全部看完。
strFilter = "where 识别号 like '' "
strFilter += txbIDCard.Text.Trim + "% '' "

将这里的where 去掉，在 += 后加个 and.
写的好乱。
__________________________________________________________________________
+ strFilter ----〉and strFilter
看这样能连上不．
__________________________________________________________________________
先谢谢各位的指教

“在 += 后加个 and.”会出现语法错误
+ strFilter ----〉and strFilter 问题还在
__________________________________________________________________________
Private Sub btnStat_Click(...)
Dim strFilter As String
If txbIDCard.Text.Trim.Length <> 0 Then
strFilter = " 识别号 like '' "
strFilter += txbIDCard.Text.Trim + "% '' "
End If

Dim d1 As Date = Me.DateTimePicker1.Value
Dim d2 As Date = Me.DateTimePicker2.Value
Dim connectionString As String = "Persist Security Info=False;Integrated Security=SSPI;Database=shipping;Server=localhost "

Dim da As New SqlClient.SqlDataAdapter da.SelectCommand.CommandText = "SELECT 预定单号, 入库时间, 出库时间, 识别号 FROM 预定单 WHERE 入库时间> = '' " & d1 & " '' AND 出库时间 <= '' " & d2 & " '' " and strFilter ''
Dim ds As New DataSet
da.Fill(ds)
dataGrid1.DataSource = ds.Tables(0)
end sub

=============
这样可能可以，我没有调试过．你可以调试下，注意看看ＳＥＬＥＣＴ前面的引号有没有对应结束的引号．
__________________________________________________________________________
Dim da As New SqlClient.SqlDataAdapter( "SELECT 预定单号, 入库时间, 出库时间, 识别号 FROM 预定单 WHERE 入库时间> = '' " & d1 & " '' AND 离开时间 <= '' " & d2 & " '' " & strFilter, connectionString)，试试
__________________________________________________________________________
and 要用 & " " & 这样才行的。以字符串加进去。
__________________________________________________________________________