Accesten textbox ve checkbox'a veri aktarma

[vivident]

Merhaba

Access veritabanından userform üzerinde bulunan textbox ve checkboxlara veri aktarmak istiyorum. Userform üzerinde listbox veya listview yok. Direk accesten verileri aktarılması gerekiyor

Beni belirttiğim kimlik numarası sahip satırı acceste bulup verileri textbox ve checkboxlara aktaracak, aşağıdaki kodu kendime gore derleme çalışıyorum, ama hata alıyorum. Kırmızı Fontlu kısımda hata olabilir mi ?

Sub Accessten_aktar()
Call baglanti
Set rs = CreateObject("adodb.recordset")
ANo = "'" & TextBox12 & "'"
rs.Open "select * from DetayaksiyonList where [Kimlik]=([COLOR="Red"]select & ANo[/COLOR]) from DetayaksiyonList)", baglan, 1, 1
If rs.RecordCount > 0 Then
    For Each nesne In Me.Controls
        If nesne.Tag <> "" Then
            nesne.Value = rs(nesne.Tag).Value
        End If
    Next nesne
End If

CheckBox1.Value = rs("ME1").Value
CheckBox3.Value = rs("ME2").Value
Set baglan = Nothing: Set rs = Nothing:
End Sub

 

[vivident]

deneme, yanılma yöntemi ile verileri almaya başardım. Lakin kimlik kısmında veya başka bir yerde hatam var. Sürekli accesste en son satırı alıyor. Bu sorunu nasıl çözerim

Kimlik = "'" & TextBox12 & "'"
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Call baglanti

rs.Open "select ME1,ME2,ME3,ME4,ME5,MH1,MH2,MH3,MH4,MH5,MACK1,MACK2,MACK3,MACK4,MACK5,Kimlik from [DetayaksiyonList] Order By Kimlik Desc", baglan, 1, 1
CheckBox1.Value = rs("ME1").Value
CheckBox3.Value = rs("ME2").Value
CheckBox5.Value = rs("ME3").Value
CheckBox7.Value = rs("ME4").Value
CheckBox9.Value = rs("ME5").Value
CheckBox2.Value = rs("MH1").Value
CheckBox4.Value = rs("MH2").Value
CheckBox6.Value = rs("MH3").Value
CheckBox8.Value = rs("MH4").Value
CheckBox10.Value = rs("MH5").Value
TextBox2.Value = rs("MACK1").Value
TextBox57.Value = rs("MACK2").Value
TextBox58.Value = rs("MACK3").Value
TextBox59.Value = rs("MACK4").Value
TextBox60.Value = rs("MACK5").Value
rs.Close