Satır kaynağını ve yordam böyle düzenlendi..column(0) sno olarak alındı.Ama buraya değer atayamazsınız diye ileti alıyorum.

Private Sub Liste0_Click()
Me.sno = Me.Liste0.Column(0)
End Sub

SELECT tbl_personel.sno, tbl_personel.personelno, [adi] & " " & [soyadi] AS [ADI SOYADI], tbl_personel.sicili, tbl_personel.rutbesi, tbl_personel.tckimlikno FROM tbl_personel WHERE ((([adi] & " " & [soyadi]) Like "*" & Forms!frm_personelbilgiformu!Metin110 & "*")) Or (((tbl_personel.sicili) Like "*" & Forms!frm_personelbilgiformu!Metin110 & "*")) Or (((tbl_personel.tckimlikno) Like "*" & Forms!frm_personelbilgiformu!Metin110 & "*")) ORDER BY tbl_personel.personelno;