Visual Basic

Private Sub btnUpdate_Click(ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles btnUpdate.Click

   sb = New StringBuilder
       sb.Append("UPDATE [T_Analysis] SET ")
       sb.Append(" [OrderDate]= '" & Me.txtDate.Text & "'")
       sb.Append(",[OrderName]= '" & Me.txtOrderName.Text & "'")
       sb.Append(" WHERE [OrderNo]= " & Me.txtOrder.Text & "")
   ADOExecute(sb.ToString)

   End Sub

[Module]
 Public Sub ADOExecute(ByVal ssql As String)
        Dim sqlexec As Integer
        Dim adocmd As ADODB.Command
        Dim adocon As New ADODB.Connection
        Try
            adocon = New ADODB.Connection
            adocon.ConnectionString = adoconstr
            adocon.CursorLocation = ADODB.CursorLocationEnum.adUseClient
            adocon.Open()

            adocmd = New ADODB.Command
            adocmd.ActiveConnection = adocon
            adocmd.CommandText = ssql
            adocmd.Execute(sqlexec)
            rowsAffected = sqlexec

        Catch ex As Exception
            log.Debug(ex.ToString)
            Throw (ex)
        Finally
            If adocon.State <> ConnectionState.Closed Then
                adocon.Close()
                adocon = Nothing
                adocmd = Nothing
            End If
        End Try
    End Sub

(connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Database\DrinkingWater.mdb;Persist Security Info=True"<br />
            providerName="System.Data.OleDb" )

C:..\\Visual Studio 2005\Projects\DrinkingWater\DrinkingWater\bin\Debug\Database<br />
	Inside the bin folder<br />
		{DrinkingWater.ldb}   → lock <br />
		{DrinkingWater.mdb}　 → database<br />
<br />
C:..\\Visual Studio 2005\Projects\DrinkingWater\DrinkingWater\Database<br />
	Inside the Project Folder<br />
		{DrinkingWater.mdb}

MessageQueue.EnableConnectionCache = True
     MessageQueue.Create(My.Computer.Name & "\private$\" & CStr(Me.Handle), False)

Dim que As New MessageQueue(My.Computer.Name & "\private$\" & CStr(Me.Handle))
      que.Formatter = New BinaryMessageFormatter
      AddHandler que.ReceiveCompleted, AddressOf txtpdfrecieved
      que.BeginReceive(New TimeSpan(0, 0, 1))

Private Sub txtpdfrecieved(ByVal message As Object, ByVal args As ReceiveCompletedEventArgs)
.
. Does stuff
.
CType(message, MessageQueue).Purge()
CType(message, MessageQueue).BeginReceive()
end sub

Dim que As New MessageQueue(My.Computer.Name & "\private$\" & CStr(handle))
que.Formatter = New BinaryMessageFormatter
stringy = stringy & CStr(processtostart.MainWindowHandle)
que.Send(stringy)