Dim dbCustomer As Database ' 宣告資料庫
Dim strSql As String ' SQL 字串
Dim strodbc As String ' ODBC 字串 '
以下為資料庫中客戶檔之三個欄位變數宣告
Dim strCustID As String ' 客戶代碼
Dim strFirstName As String ' 客戶名稱
Dim strAddress As String ' 客戶地址
strodbc = "odbc;uid=scott;pwd=tiger;dsn=myconnect"
Set dbCustomer = OpenDatabase("myconnect", dbDriverNoPrompt, False, strodbc)
strCustID = "A003"
strFirstName = "Annie"
strAddress = "Reflection's"
strSql = "insert into CUSTOMER values('" & strCustID & "'"
strSql = strSql & ",'" & strFirstName & "'," strSql = strSql & Chr(34) & strAddress & Chr(34) & ")"
dbCustomer.Execute (strSql)
dbCustomer.Close
End Sub