' ****************************************************
' 実行時、最初に処理されるイベント
' ****************************************************
Private Sub Form_Load()

	Call BodyProtect
	Call InitControl

	' データベース接続

	Dim strConnection As String

	Set g_objCn = CreateObject("ADODB.Connection")
	strConnection = "Provider=SQLOLEDB;Data Source=SV;"
	strConnection = strConnection & "Initial Catalog=GDB;"
	strConnection = strConnection & "User ID=sa;"
	strConnection = strConnection & "Password=;"

	g_objCn.Open strConnection
	g_objCn.BeginTrans

End Sub

' ****************************************************
' プログラム終了処理
' ****************************************************
Private Sub Form_Unload(Cancel As Integer)

	' データベース接続解除
	g_objCn.CommitTrans
	g_objCn.Close
	Set g_objCn = Nothing

End Sub