db den arama ve bulanan verileri excele alma

[pitsss]

 Set adoCN = CreateObject("ADODB.Connection")
    adoCN.Provider = "Microsoft.Jet.OLEDB.4.0"
    adoCN.ConnectionString = DatabasePath
    adoCN.Open
    NoA = Cells(65536, 1).End(xlUp).Row
    Set RS = CreateObject("ADODB.recordset")
       strSQL = "SELECT * FROM [tbProje] " & _
    "WHERE    P_Tarih>=" & tarihbasla & " AND P_Tarih<=" & tarihbitir & " order by P_Tarih"
    RS.Open strSQL, adoCN, 1, 3
RS.movefirst
       For i = 2 To RS.RecordCount
           Sheets("giris").Cells(i, 1).Value = RS("P_Satir1") 
           Sheets("giris").Cells(i, 2) = RS("P_Adi") 
           Sheets("giris").Cells(i, 3) = RS("P_Durum") 
          
        
           RS.MoveNext
        Next

arkadaşalar yukarıdaki kod ile ben verilerimi belli bir aralığa göre alıp
giriş sayfasına listeliyorum.
ancak benim amacım
burada
userform1 deki textbox ile P_Satir1(P_Satir1 =sayı) e göre arasın bulunan verileri listbox a listelesin. ben istediğim veriyi çift tıklayıncada
sayfa1 in hücrelerine aktarsın

 Sheets("giris").Cells(i, 1).Value = RS("P_Satir1") 
           Sheets("giris").Cells(i, 2) = RS("P_Adi") 
           Sheets("giris").Cells(i, 3) = RS("P_Durum")

bunlar gibi mesela
ama bunu bi türlü yapamadım.
nasıl yapmama gerekiyor acaba?
teşekkürler.