dato sql , virker sku ikke

Dim dd As Date
Dim valkursdato As Variant
dd = Me.KøbsDato
Dim dbs As Database
Dim rst As DAO.Recordset
  Dim strSQL As String

  Set dbs = CurrentDb
  strSQL = "SELECT * FROM valuta_kurser WHERE indtastdato = " & dd
Set rst = dbs.OpenRecordset(strSQL, dbOpenDynaset)

    rst.FindFirst ("valutaid = 4")



det jeg faktisk bare skal bruge fra tabel "valuta_kurser" er
kurs where valutaid=4 og indtastdato = 01-06-2006

hvordan gør jeg det kan ikke finde ud af det., valutaid og dato er selvfølgelig variable