sonunda bir hoca sağolsun bunun çözümünü bildirdi, paylaşmak istedim, olması gerekenler kırmızı ile belirttiklerim.
Dim x As String
Dim y As String
Dim z As String
Dim t As String
Dim bakStrng As String

x = "kisi_kodu"
t = "kisi_kodu = '"
y = "KISILER"
z = "' & [Forms]![GIRIS]![giris_kodu] & '"

bakStrng = Nz(DLookup(x, y, t & z & "'"))

olay şu ki; söz dizimini tam yapabilmek ustalık işi, sadece mantık yetmiyor