Private Sub pbBild_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles pbBild.Click
        Try
            ofdSelPic.ShowDialog()
            Dim Bild As String
            Bild = ofdSelPic.FileName
            pbBild.Refresh()
            pbBild.Image = New Bitmap(Bild)
            pbBild.SizeMode = PictureBoxSizeMode.StretchImage
        Catch
            MsgBox("Bild konnte nicht geladen werden", MsgBoxStyle.Information, _
              "Fehler")
        End Try
 
    End Sub

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnSave.Click
        Dim ID As String = lblKdID.Text 'verstektes Label mit der ID des 
        ' Datensatzes
        Dim tbl As New DataTable
 
        conDB.Open()
        Dim adp As New MySql.Data.MySqlClient.MySqlDataAdapter("SELECT * FROM" & _
          "tabelle WHERE id=" & ID, conDB)
        adp.Fill(tbl)
        Dim updRow As DataRow = tbl.Rows(0)
        updRow.Item("cat") = txtCat.Text
        updRow.Item("dsnr") = txtKdNr.Text
        updRow.Item("anrede") = cmbAnrede.Text
        If cmbTitel.Text = "" Then
            updRow.Item("titel") = System.DBNull.Value
        Else
            updRow.Item("titel") = cmbTitel.Text
        End If
 
        ' .... usw.
 
        ' BILD aus PictureBox pbBild ?????
 
        Dim builder As New MySql.Data.MySqlClient.MySqlCommandBuilder(adp)
        adp.UpdateCommand = builder.GetUpdateCommand
        adp.Update(tbl)
        conDB.Close()
        tbl.Clear()
 
        Me.Close()
 
    End Sub

MS Visual Studio 2010 Prof.
MS Windows 7 Ultimate 64-bit
INTEL QuadCore Q6600 @2,40 GHz / 8GB RAM