Dim Conn As ADODB.Connection

Set Conn = New ADODB.Connection
Conn.CursorLocation = adUseClient
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & App.Path & "DEINEMDB.mdb" & ";"

Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
With Rs
  .Open "select * from tblSoundTrack", Conn, adOpenStatic, adLockOptimistic 
  .filter = "fldFullPath = '" + WAV + "'" 
  WAVExists = .RecordCount 
  .Close 
End With