Dim rs As New ADODB.Recordset
Dim sorgu, kriter As String
    kriter = Me.Combo5
    sorgu = "select * from menu where MenuADI2= '" & kriter & "'"
 
rs.Open sorgu, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveFirst
    Do While Not rs.EOF
        With DoCmd
        .SetWarnings 0
            Select Case rs(4)
                Case "SorguSIL"
                .RunSQL rs(7)
                Case "SorguAc"
                Detay.SourceObject = "Query." & rs(7)
                .GoToControl "Detay"
                Case "SorguEkle"
                .OpenQuery rs(7)
                Case "TabloAc"
                Detay.SourceObject = "Table." & rs(7)
                .GoToControl "Detay"
            End Select
        .SetWarnings -1
        End With
    rs.MoveNext
    Loop
rs.Close
Set rs = Nothing