[vb.net] afbeelding in access

Try
            'waarden toevoegen aan database
            
            
            Dim MyCommand As New OleDbCommand("INSERT INTO tblwater(water_naam, water_plaats, water_omschrijving, water_soort, water_opp, water_foto)VALUES('" & naam & "','" & plaats & "','" & omschrijving & "','" & type & "'," & opp & ",?)", MyConnection)
            Dim fs As New System.IO.FileStream(foto, IO.FileMode.Open, IO.FileAccess.Read)
            Dim b(fs.Length() - 1) As Byte
            fs.Read(b, 0, b.Length)
            fs.Close()
            Dim P As New OleDbParameter("@water_foto", OleDbType.LongVarBinary, b.Length, ParameterDirection.Input, False, 0, 0, Nothing, DataRowVersion.Current, b)
            MyCommand.Parameters.Add(P)
            MyCommand.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox("Foutmelding: Kan het water niet toevoegen, gelieve opnieuw te proberen", MsgBoxStyle.Critical, "Foutmelding")
            Exit Sub
        End Try

Try
            'waarden toevoegen aan database
 
 
            Dim MyCommand As New OleDbCommand("INSERT INTO tblwater(water_naam, water_plaats, water_omschrijving, water_soort, water_opp, water_foto)VALUES('" & naam & "','" & plaats & "','" & omschrijving & "','" & type & "'," & opp & ",?)", MyConnection)
            Dim fs As New System.IO.FileStream(foto, IO.FileMode.Open, IO.FileAccess.Read)
            Dim b(fs.Length() - 1) As Byte
            fs.Read(b, 0, b.Length)
            fs.Close()
            Dim P As New OleDbParameter("@water_foto", OleDbType.LongVarBinary, b.Length, ParameterDirection.Input, False, 0, 0, Nothing, DataRowVersion.Current, b)
            MyCommand.Parameters.Add(P)
            MyCommand.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox("Foutmelding: Kan het water niet toevoegen, gelieve opnieuw te proberen", MsgBoxStyle.Critical, "Foutmelding")
            Exit Sub
        End Try