Dim MyDB As Database
Dim MyRs As Recordset
Dim MyRsa As Recordset
Dim sSQL As String
Dim sCriteria As String
Private Sub Command1_Click()
Set MyRs = MyDB.OpenRecordset("Kliendid", dbOpenTable)
List1.Clear
Do Until MyRs.EOF
    List1.AddItem MyRs!Nimi
    MyRs.MoveNext
Loop
Set MyRs = Nothing
End Sub
Private Sub Form_Load()
CD1.Filter = "Access AB|*.mdb"
CD1.ShowOpen
If CD1.Filter = "" Then
MsgBox ("Error!")
Exit Sub
End If
Set MyDB = OpenDatabase(CD1.FileName)
End Sub

Private Sub List1_Click()
'Exit Sub na klik reagirovat ne budet
imja$ = List1.List(List1.ListIndex)
imja$ = Replace(imja$, "'", "''")
    sSQL = "SELECT *FROM Kliendid AS Klin, Tellimused As Tell, Kaubasaatjad As Kab " + _
          "Where Klin.KliendiKood = Tell.Klient and Tell.Saatja = Kab.SaatjaID " + _
          "AND Nimi ='" + imja$ + "'"
Label1.Caption = sSQL
Set MyRs = MyDB.OpenRecordset(sSQL, dbOpenDynaset)
List2.Clear
Do Until MyRs.EOF
List2.AddItem MyRs!Nimi
MyRs.MoveNext
Loop
End Sub

 sSQL = "SELECT *FROM Kliendid AS Klin, Tellimused As Tell, Kaubasaatjad As Kab " + _
          "Where Klin.KliendiKood = Tell.Klient and Tell.Saatja = Kab.SaatjaID " + _
          "AND Nimi ='" + imja$ + "'"

Private Sub List1_Click()
'Exit Sub na klik reagirovat ne budet
imja$ = List1.List(List1.ListIndex)
imja$ = Replace(imja$, "'", "''")
    sSQL = "SELECT Kab.nimi FROM Kliendid AS Klin, Tellimused As Tell, Kaubasaatjad As Kab " + _
          "Where Klin.KliendiKood = Tell.Klient and Tell.Saatja = Kab.SaatjaID " + _
          "AND Klin.Nimi ='" + imja$ + "'"
Label1.Caption = sSQL
Set MyRs = MyDB.OpenRecordset(sSQL, dbOpenDynaset)
List2.Clear
Do Until MyRs.EOF
List2.AddItem MyRs!Nimi
MyRs.MoveNext
Loop
End Sub