Visual Basic

Friend Function SingleQuoteTextFromDB(ByVal text As Object) As String
  'If a user saved a single quote in a text field, it was changed to
  '2 single quotes. This function reverses the changes when displayed
  If Not text Is Nothing Then
    If Not text Is DBNull.Value Then
      If InStr(text, "''") Then
        Return Replace(text, "''", "'")
      End If
    End If
  End If
  Return text
End Function

Friend Function SingleQuoteTextToDB(ByVal text As String) As String
  'If a user enters a single quote in a text field,
  'This will replace the single quote with 2 single quotes
  If Not text Is Nothing Then
    If Not text.Length.Equals(0) Then
      If InStr(text, "'") Then
        Return Replace(text, "'", "''")
      End If
    End If
  End If
  Return text
End Function

Private Sub mnuAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuAdd.Click
    txtPartNumberTextBox.Enabled = True
    ... the rest of your code to enable controls and buttons goes here ...
End Sub

Private Sub btnAddData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddData.Click
    txtPartNumberTextBox.Enabled = False
    ... the rest of your code to disable controls and buttons goes here ...
    ... also the code to process the data to add goes here...
End Sub

Dim imgToSave As Image = PictureBox1.Image
imgToSave.Save("C:\TestImage.bmp", ImageFormat.Bmp)