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.