try this ...
Cmmtrans.CommandText = "INSERT INTO tblstock (ecas, description, productid, producttypeid, brandid, codetypeid) " & _
"VALUES('" & ecasstr & "', '" & descstr & "', " _
& productid & " , " & producttypeid & " , " & brandid & " , " & codetypeid & ")"
I didn't double-check if the vars were String Or Integer.
If the data type is string in the DB then surround the var with single quotes, for numeric types don't.