開啟資料庫連結*執行SQL指令

Imports System.Data.OleDb
Module Module1
Function ExecuteSQL(ByVal strSQL As String) As Integer
Dim objCon As OleDbConnection
Dim objCmd As OleDbCommand
Dim intRowsAffected As Integer
Dim strDbCon As String
strDbCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=toys.mdb"
Try
objCon = New OleDbConnection(strDbCon)
objCon.Open() ' 開啟資料庫連結
objCmd = New OleDbCommand(strSQL, objCon)
' 執行SQL指令
intRowsAffected = objCmd.ExecuteNonQuery()
objCon.Close()
Catch ex As Exception
MsgBox(strSQL)
End Try
Return intRowsAffected
End Function
End Module