Visual Basic

<br />
	Private m_connection As OleDb.OleDbConnection <br />
<br />
	Private m_connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source="<br />
<br />
	Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)<br />
		MyBase.OnLoad( e )<br />
		m_connectionString &= HunterDev.Environment.GetUserFolderPath( SpecialFolders.Personal ) & "\db1.mdb"<br />
	End Sub<br />
<br />
	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
		If ( m_connection Is Nothing ) Then<br />
			m_connection = New OleDb.OleDbConnection( m_connectionString )<br />
		End If<br />
		Dim command As New OleDb.OleDbCommand( "INSERT INTO Sample ( Name ) VALUES ( '" & TextBox1.Text & "' )", m_connection )<br />
		Dim idCommand As New OleDb.OleDbCommand( "SELECT @@IDENTITY", m_connection )<br />
		If ( m_connection.State <> ConnectionState.Open ) Then<br />
			m_connection.Open()<br />
		End If<br />
		command.ExecuteNonQuery()<br />
		Dim id As Integer = CInt( idCommand.ExecuteScalar() )<br />
		If ( m_connection.State <> ConnectionState.Closed ) Then<br />
			m_connection.Close()<br />
		End If<br />
		TextBox2.AppendText( id.ToString() & vbCrLf )<br />
	End Sub<br />
<br />
	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br />
		Dim idCommand As New OleDb.OleDbCommand( "SELECT @@IDENTITY", m_connection )<br />
		If ( m_connection.State <> ConnectionState.Open ) Then<br />
			m_connection.Open()<br />
		End If<br />
		Dim id As Integer = CInt( idCommand.ExecuteScalar() )<br />
		If ( m_connection.State <> ConnectionState.Closed ) Then<br />
			m_connection.Close()<br />
		End If<br />
		TextBox2.AppendText( id.ToString() & vbCrLf )<br />
	End Sub<br />

Dim appWord as Word.Application

Set appWord = New Word.Application