vb 2008:sqlce missing parameter parameter ordinal=1

vb 2008:sqlce missing parameter parameter ordinal=1

I'm trying to insert a record into my sqlce database using vb2008 but I
get the message - A parameter is missing (parameter ordinal=1) which I
assume means that the first variable - @dt_id is invalid or not being
accepted. Is that what's going. If not what's causing the message?
Here's the code:
con = New SqlCeConnection(connectionString)
con.Open()
Try
cmd = New SqlCeCommand("Insert into [daily_detail] ([dd_id],
[dd_customers], [dd_pennies], [dd_nickels], [dd_dimes],
[dd_quarters], [dd_singles], [dd_fives], [dd_tens], [dd_twenties],
[dd_fifties], [dd_hundreds], [dd_salestax], [dd_tips],
[dd_charged], [dd_gross], [dd_net], [dd_new_drawer])
values(@dt_id, @customers, @pennies, @nickels, @dimes, @quarters,
@dollars, @fives, @tens, @twenties, @fifties, @hundreds,
@salestax, @tips, @charged, @gross, @net, @new_drawer)", con)
cmd.executeNonQuery()
cmd.Parameters.Addwithvalues("@dt_id", current_date)
cmd.parameters.Addwithvalues("@customers", w_customers)
cmd.parameters.Addwithvalues("@pennies", w_pennies)
cmd.parameters.Addwithvalues("@nickels", w_nickels)
cmd.parameters.Addwithvalues("@dimes", w_dimes)
cmd.parameters.Addwithvalues("@quarters", w_quarters)
cmd.parameters.Addwithvalues("@dollars", w_dollars)
cmd.parameters.Addwithvalues("@fives", w_fives)
cmd.parameters.Addwithvalues("@tens", w_tens)
cmd.parameters.Addwithvalues("@twenties", w_twenties)
cmd.parameters.Addwithvalues("@fifties", w_fifties)
cmd.parameters.Addwithvalues("@hundreds", w_hundreds)
cmd.parameters.Addwithvalues("@salestax", w_salestax)
cmd.parameters.Addwithvalues("@tips", w_tips)
cmd.parameters.Addwithvalues("@charged", w_charged)
cmd.parameters.Addwithvalues("@gross", w_gross)
cmd.parameters.Addwithvalues("@net", w_net)
cmd.parameters.Addwithvalues("@new_drawer", w_new_drawer)
Catch ex As Exception
msg_text = "Insert failed: " + ex.Message
MsgBox(msg_text, , msgtitle)
Exit Sub
End Try