Private Sub List1_Click()
'Exit Sub na klik reagirovat ne budet
avtori$ = List1.List(List1.ListIndex)
avtori$ = Replace(avtori$, "'", "''")
    sSQL = "SELECT *FROM Izdatelstvo AS Iz, Knigi As K, Avtors As At " + _
          "Where Iz.Izdat_ID = K.Izdatel and K.Avtor_Knigi = At.Av_ID" + _
          "AND Izdatelstvo ='" + avtori$ + "'"
Label1.Caption = sSQL
Set MyRs = MyDB.OpenRecordset(sSQL, dbOpenDynaset)
List2.Clear
Do Until MyRs.EOF
List2.AddItem MyRs!Author
MyRs.MoveNext
Loop
End Sub