title: Dlookup for date returing Type Mismatch error
body: <p>I can't quite figure out what is wrong with this code that is causing a "Type Mismatch" error. I have a feeling it has to do with all the ' and " but I try all sorts of combinations and still no luck. I have tried <code>Dim duedate As String</code> but no change. Where am I going wrong with this one?</p>
  
  <pre><code>Private Sub Report_Load()
  
  Cat1 = Me.Text175.Value
  AssetNum1 = Me.Text177.Value
  
  Dim duedate As Date
  duedate = FormatDateTime(Nz(DLookup("[Calibration Due Date]", "[Calibration Data]", "[ID] = " &amp; AssetNum1 And "[Category] = " &amp; Cat1), ""), vbShortDate)
  
  If duedate = "" Then
  Me.Text26 = "Oopps"
  Else
  Me.Text26 = duedate
  End If
  End Sub
  </code></pre>