Adodc1.RecordSource = "SELECT * FROM Ugerapport WHERE Dato=" & test & ""
Adodc1.Refresh


Try to put test in single quotes as follows


Adodc1.RecordSource = "SELECT * FROM Ugerapport WHERE Dato='" & test & "'"
Adodc1.Refresh


let us know