var = Me!Date_s.Value
     var = "#" & Mid(var,  4 ,  2 ) & "/" & Mid(var,  1 ,  2 ) & "/" & Mid(var,  7 ,  4 ) & "#"
     var1 = Me!Date_po.Value
     var1 = "#" & Mid(var1,  4 ,  2 ) & "/" & Mid(var1,  1 ,  2 ) & "/" & Mid(var1,  7 ,  4 ) & "#"
     tm = Me!Time_s.Value
     tm1 = Me!Time_po.Value
If var = var1 Then
   strQBeg = "select Vremya," & strQue
   var2 = Mid(var,  2 ,  10 ) & " "
   var3 = Mid(var1,  2 ,  10 ) & " "
   str = " from Stat where Data=" & var & " and NameSLU='" & slu1 & _
        "' and between Vremya #12/30/1899 " & tm & "# and #12/30/1899 " & tm1 & "#"
  Else
   strQBeg = "select Data," & strQue
   str = " from Stat where Data>=" & var & " and Data<=" & var1 & " and NameSLU='" & slu1 & "'"
  End If
     strQuery = Mid(strQBeg,  1 , Len(strQBeg) -  1 ) & str
     DoCmd.OpenForm "Graf"
     Forms!Graf.GrafOLE.RowSource = strQuery