'示範SQL中的Insert Into陳述式的標準寫法
SqlStr = "Insert Into Product (製造廠家, 產品名稱, 價格, 規格, 分類, 產品圖片位置, 修改日期, 修改人員) Values ("
SqlStr = SqlStr & "'" & Producer & "', "
SqlStr = SqlStr & "'" & Name & "', "
SqlStr = SqlStr & Price & ","
SqlStr = SqlStr & "'" & Specification & "', "
SqlStr = SqlStr & "'" & Kind & "', "
SqlStr = SqlStr & "'" & PictureLink & "', "
SqlStr = SqlStr & "#" & Date() & "#,"
SqlStr = SqlStr & "'" & Session("LoginProductMan") & "')"

'利用已開啟的資料庫連結物件dbs執行SqlStr所記載的SQL陳述式
dbs.Execute (SqlStr)