01.<%@ Import Namespace="System.Data"%>
02.<%@ Import Namespace="System.Data.Odbc"%>
03.<%@ Page Language="VB" %>
04.<script runat="server">
05.
06. Sub Page_Load(sender As Object, e As EventArgs)
07. Sample1()
08. End Sub
09.
10. Sub Sample1()
11.
12. Dim objConn As System.Data.Odbc.OdbcConnection
13. Dim objCmd As System.Data.Odbc.OdbcCommand
14. Dim strConnString,strSQL As String
15.
16. strConnString = "DSN=mydatabase;UID=;PWD=;"
17. objConn = New System.Data.Odbc.OdbcConnection(strConnString)
18. objConn.Open()
19.
20.
21. strSQL = "INSERT INTO customer (CustomerID,Name,Email,CountryCode,Budget,Used) " & _
22. "VALUES (?,?,?,?,?,?)"
23.
24. objCmd = New System.Data.Odbc.OdbcCommand(strSQL,objConn)
25. With objCmd
26. .Parameters.Add(New OdbcParameter("@sCustomerID","C005"))
27. .Parameters.Add(New OdbcParameter("@sName","Weerachai Nukitram"))
28. .Parameters.Add(New OdbcParameter("@sEmail","webmaster@thaicreate.com"))
29. .Parameters.Add(New OdbcParameter("@sCountryCode","TH"))
30. .Parameters.Add(New OdbcParameter("@sBudget","2000000"))
31. .Parameters.Add(New OdbcParameter("@sUsed","1000000"))
32. End With
33. objCmd.ExecuteNonQuery()
34.
35. lblText.Text = lblText.Text & "- Record Inserted"
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59. objCmd = Nothing
60. objConn.Close()
61. objConn = Nothing
62.
63. End Sub
64.
65.</script>
66.<html>
67.<head>
68.<title>ThaiCreate.Com ASP.NET - System.Data.Odbc</title>
69.</head>
70.<body>
71. <form id="form1" runat="server">
72. <asp:Label id="lblText" runat="Server"></asp:Label>
73. </form>
74.</body>
75.</html>
VB.NET || 
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
