做了个组合查询，有一段按时间范围查询ACCESS数据库，单独用很正常，代码如下：
Private Sub Command5_Click()
= adCmdText
Adodc4.RecordSource = "select * from czfy where 时间 between #" & Format(DTPicker1.Value) & "# and #" & Format(DTPicker2.Value) & "#"
Adodc4.Refresh
If Adodc4.Recordset.RecordCount > 0 Then
Adodc4.Refresh
Else
MsgBox "没有符合条件的信息,请您确认后重新输入"
End If
End Sub
但是把：时间 between #" & Format(DTPicker1.Value) & "# and #" & Format(DTPicker2.Value) & "#"
放到下面这里就没反应了，不管选择什么时间范围都提示没有符合条件的信息,请您确认后重新输入：（时间搜索不选择就正常，数据库时间=日期类型）
Private Sub Command1_Click()
Dim sc As String
If Len(Combo1.Text) > 0 Then
      sc = "区域 = '" + Combo1.Text + "'"
End If
If Len(Combo2.Text) > 0 Then
    If Len(sc) > 0 Then
           sc = sc & " and 板块 = '" + Combo2.Text + "'"
    Else
          sc = "板块 = '" + Combo2.Text + "'"
    End If
 End If
If Check1.Value = 1 Then
    If Len(sc) > 0 Then
         sc = sc & " and 时间 between #" + Format(DTPicker1.Value) + "# and #" + Format(DTPicker2.Value) + "#"
    Else
          sc = "时间 between #" + Format(DTPicker1.Value) + "# and #" + Format(DTPicker2.Value) + "#"
    End If
End If
    If Len(sc) > 0 Then
    = adCmdText
    Adodc4.RecordSource = "select * from czfy where " & sc
    Adodc4.Refresh
End If
   If Adodc4.Recordset.RecordCount > 0 Then
    Adodc4.Refresh
    Else
    MsgBox "没有符合条件的信息,请您确认后重新输入"
   End If
End Sub
还有个数据库空值问题：在下面的代码中，Combo8载入“面积”里的值得时候，里面有的是空值，我不会只好用& ""来解决
但是用了& ""后，载入的数据很多都空白的！有什么办法解决吗？简单点的！！
Do While Not Adodc3.Recordset.EOF
Combo8.AddItem Adodc3.Recordset.Fields("面积") & ""
Adodc3.Recordset.MoveNext
Loop

[ 本帖最后由 wxflw 于 2012-1-29 22:06 编辑 ]

第一个问题：没有提示出错，说明你的sql语句没有语法错误，可以将combo1和combo2不输入内容，勾选check1,生成的sql语句等效于单独用，可以在access中建立个查询，使用该sql语句调试的，建议字符串连接还是要使用"&"连接，不用"+"。
第二个问题：使用isnull函数，语句写法是if not isnull(Adodc3.Recordset.Fields("面积")) then Combo8.AddItem Adodc3.Recordset.Fields("面积")  

Adodc4.RecordSource = "select * from czfy where " & sc & " "

问题找到了！谢谢！我在中间多粘贴了一组时间搜索代码！！我没注意！看眼花了~~~~谢谢大家了，分送上！