Private Sub List2_DblClick()
Dim Db As DataBase
Dim Rst As Recordset
dbFile = Text1.Text
Set Db = OpenDatabase(dbFile, False, False)
List3.Clear
If List2.ListIndex >= 0 Then Text = List2.List(List2.ListIndex)
Set Rst = Db.OpenRecordset(Text2)
  Do Until Rst.EOF
X    List3.AddItem Rst!Text
    Rst.MoveNext
  Loop
      Db.Close
  Set Db = Nothing
End Sub