vb access 关于时间以及数据对比赋值

Question

请教一：我把查询到得数据赋值给DataGrid1（包含客户 时间等值），然后和access中的其中一个表中的客户对比，把其中没有的（查询到得数据少于其中一个表的）赋值给 另一个窗体的 DataGrid，怎么写？   
请教二：access中 有 项目开始时间  项目结束时间 两个时间，都是短日期，在vb中我用DTPicker查询，经常出现错误，看下怎么回事？
  代码如下：
       Case "KSSJ"
           If Trim(Me.DTPicker1.Value) <> "" Then
             crq1 = "and 项目开始日期>='" & Format((Me.DTPicker1.Value), "YYYY-MM-DD") & "'"
            Else: MsgBox "请选择查询开始时间", vbInformation + vbOKOnly
            End If
    
            If Trim(Me.DTPicker2.Value) <> "" Then
             crq2 = "and 项目开始时间<='" & Format((Me.DTPicker2.Value), "YYYY-MM-DD") & "'"
            Else: MsgBox "请选择查询截止日期", vbInformation + vbOKOnly
          
            End If
          Case "JSSJ"
            If Trim(Me.DTPicker1.Value) <> "" Then
             crq1 = "and 项目结束日期>='" & Trim(Me.DTPicker1.Value) & "'"
            Else: MsgBox "请选择查询开始时间", vbInformation + vbOKOnly
            End If
    
            If Trim(Me.DTPicker2.Value) <> "" Then
             crq2 = " and 项目结束时间<='" & Trim(Me.DTPicker2.Value) & "'"
            Else: MsgBox "请选择查询截止日期", vbInformation + vbOKOnly
          
            End If
            Case "BYSJ"
            If Trim(Me.DTPicker1.Value) <> "" Then
             crq1 = " and 项目开始日期>='" & Trim(Me.DTPicker1.Value) & "'"
            Else: MsgBox "请选择查询开始时间", vbInformation + vbOKOnly
            End If
    
            If Trim(Me.DTPicker2.Value) <> "" Then
             crq2 = " and 项目结束时间<='" & Trim(Me.DTPicker2.Value) & "'"
            Else: MsgBox "请选择查询截止日期", vbInformation + vbOKOnly
          
            End If
     sql_str = crq1 & crq2 
     sql_str = "select * from xiangmu where 1=1 " & sql_str
     If rs.State = adStateOpen Then
        rs.Close
     End If
   
      rs.Open sql_str, cn, 1, 1 

Answer 1

1.先获取DataGrid1中的客户2.这样连接  strT=strT & ", '" & 客户 & "'"3.全连接后，把第一个  (,) 去掉  mid(strT,2)4.用sql =  "select * from mytable where 客户 not in(" & strT & ") "  

Answer 2

1.这样给另外一个窗体的datagrid绑定数据源
Set Form2.DataGrid1.DataSource = Adodc12.ACCESS的日期要用#号引起来,而不是用'引起来(注意日期字段为日期型,也可以是字符串型)
crq1 = "and 项目开始日期>=#" & Format((Me.DTPicker1.Value), "YYYY-MM-DD") & "#"

Answer 3

请教二：access中 有 项目开始时间  项目结束时间 两个时间，都是短日期，在vb中我用DTPicker查询，经常出现错误，看下怎么回事？ ****************************************************************什么错误？
是控件数据错误? 还是数据库查询有出入？
错误提示是什么？