Dim strs As String
strs = "insert into stocks(name,Desc,catcode,quan,unitcost,pdate) values('" & Text1(0).Text & "','" & Text1(1).Text & "','" & Combo1.Text & "','" & Text1(3).Text & "','" & Text1(4).Text & "','" & Format(DTPicker1.Value, "yyyy-mm-dd") & "')"
myDB.Execute (strs)