şimdi dener misiniz? activeX dosyası eksikmiş bir de alanları ve tabloları bilmediğimden kodlamada hata yapmışım 
not : referanslara "microsoft Activex data objects x.x library" eklemelisiniz.

Private Sub cb_tipler_Change()

Me.pdf_gosterici.Visible = True

Me.txt_teknik_resim_no = Dlookup ("teknik_resim", "TBL_TIPLER", "tip_id=" & cb_tipler)

Me.lbl_1.Caption = Dlookup ("merkmal_adi", "TBL_MERKMAL", "tip_idfk=" & cb_tipler)

'Me.cb_merkmal.Requery

'______________________Deneme______

Dim rst As New ADODB.Recordset

Dim SqlMerkal As String

Dim a, i As Integer



SqlMerkal = "select * from TBL_UYARI_SINIRI WHERE (TBL_UYARI_SINIRI.tip_idfk)=" & Me.cb_tipler



rst.Open SqlMerkal, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rst.MoveLast

rst.MoveFirst



a = rst.RecordCount

For i = 1 To a

Controls("txt_uks" & i).Visible = True

Controls("txt_aks" & i).Visible = True

Controls("lbl_" & i).Visible = True

Controls("txt_uks" & i) = rst.Fields("uks")

Controls("txt_aks" & i) = rst.Fields("aks")

rst.MoveNext

Next i

'_______________deneme_bitti______________



End Sub