poster kun 0 istedet for værdi fra tekstfboks i AccesDB

Hej Exp's

Har lige bikset det her sammen for en af mine venner:

Dim conn As New Connection
Dim strSQL As String
kunster = Val(kunster.Text)
titel = Val(titel.Text)
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\arkiv.mdb"
    strSQL = "INSERT INTO cdIndex (kunstner, titel) VALUES('" & kunster & "', '" & titel & "')"
    conn.Execute (strSQL)
conn.Close
Label3.Caption = kunster

Men den poster "0" og ikke værdien fra tekstboksen.
Hvad er der galt??

//themaster