01.
strSQL =
"INSERT INTO customer (CustomerID,Name,Email,CountryCode,Budget,Used) "
& _
02.
"VALUES (@sCustomerID,@sName,@sEmail,@sCountryCode,@sBudget,@sUsed)"
03.
04.
objCmd =
New
System.Data.OleDb.OleDbCommand(strSQL,objConn)
05.
06.
With
objCmd
07.
.Parameters.Add(
New
OleDbParameter(
"@sCustomerID"
,
"C005"
))
08.
.Parameters.Add(
New
OleDbParameter(
"@sName"
,
"Weerachai Nukitram"
))
09.
.Parameters.Add(
New
OleDbParameter(
"@sEmail"
,
"webmaster@thaicreate.com"
))
10.
.Parameters.Add(
New
OleDbParameter(
"@sCountryCode"
,
"TH"
))
11.
.Parameters.Add(
New
OleDbParameter(
"@sBudget"
,
"2000000"
))
12.
.Parameters.Add(
New
OleDbParameter(
"@sUsed"
,
"1000000"
))
13.
End
With