Güncelleştirme sonrasında olayındaki Kodları aşağıdaki ile değiştir.

Dim rs As New ADODB.Recordset



SQL = "SELECT * FROM PS3 WHERE (((Ad)=""" & Me.Liste & """));"

rs.Open SQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic



    If Not rs.BOF Then

        Me.Tarih.Caption = rs("Tarih")

        Me.Boyut.Caption = rs("Boyut")

        Me.Oyuncu.Caption = rs("Oyuncu")

        Me.Video.Caption = rs("Video")

        'Me.Resim.Caption = rs("Resim")

    End If

rs.Close

Set rs = Nothing



Me.Ad.Caption = "BLES012345" & " - " & Liste.Value

Referanslara microsoft activex data Object 2.x library referansını ekle.