Dim path As String = FileSystem.CurDir
Dim drive As Char = path.chars(0)
 
'dann kommt hier der Code für Bild suchen.....
        OpenFileDialog1.ShowDialog()
       Try
            Label2.Text = OpenFileDialog1.FileName()
            PictureBox1.Image = Image.FromFile(Label2.Text)
        Catch ex As Exception
        End Try
'Es folgt das eintragen in die Datenbank:
'wichtig: 
 
        FileSystem.ChDrive(Drive)
        FileSystem.ChDir(path)
'sonst findet dein Programm den Pfad zur Datenbank nicht!!!!!!!
        Dim com1 As New OleDb.OleDbCommand("update tblbilder set File_Url  = '" _
          & Label2.Text & "' ", OleDbConnection1)
           Try
            OleDbConnection1.Open()
            com1.ExecuteNonQuery()
            OleDbConnection1.Close()
            Me.Close()
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "WinFaktura", MessageBoxButtons.OK, _
              MessageBoxIcon.Error)
        Finally
            OleDbConnection1.Close()
        End Try