Archief - Q VBA in access

ik weet het, het is niet de bedoeling om hier dingen voor de school te gaan posten maar ik zit een beke vast :/ kunnen jullie mij een beetje helpen?

het is de bedoeling dat ik een formulier ontwerp dat het aantal dagen die ons nog resten tot 1 januarie 2010.
ik moet volgende functies gebruiken:
de functie NOW() en #1/01/2010# om de datum van 1 januarie2010 in te voeren.


wat ik nu heb is dit:

Private Sub Berekenen_Click()

'voor bewerking
Dim strDate() As String
Dim strDate2010() As String
Dim strUitkomst As String

'verwerking
Dim strDate = NOW() 'of DATE() dus
Dim strDate2010() = #1/01/2010#
Dim strUitkomst = strDate2010() - strDate

'uitkomst
MsgBox "Er zijn nog " + strUitkomst + " dagen tot 1 januari 2010."


het staat vol fouten, dat weet ik maar ik zit dus duidelijk een beetje vast

iemand die mij kan helpen?

thnx m8!