Подскажите, пожалуйста, в чем проблема?
Пытаюсь сделать в update таблице.
Все время тормозит на типе перемeнной " datetime"


Private Sub cmdAdd_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=angar_11;Data Source=4C824D68DCB540A"
Set rs = cn.Execute("update event_tbl set total_cost = '" + Val(txtTotalCost.Text) + "' where event_date = '" + CDate(cmbDate.Text) + "' ")
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

End Sub