Проше прощения еще раз..

Dim MyDB As Database
Dim MyRs As Recordset 'ustanovka na zapis
Dim sSQL, sCriteria As String

Private Sub Command1_Click()
CD1.Filter = "Access DB|*.mdb" 'filter otkritija failov s .mdb

CD1.ShowOpen  'otkrit database
    If CD1.FileName = "" Then 'proverka na nalichie faila
         MsgBox " Not found "
       Exit Sub
    End If
Set MyDB = OpenDatabase(CD1.FileName)
End Sub

Private Sub Command2_Click()
sSQL = "Select *from Avtors order by Author DESC" 'vibrat vseh avtorov iz tablici avtorov DESC - sortirovka v ubivajushem porjadke
Set MyRs = MyDB.OpenRecordset(sSQL, dbOpenDynaset) 'otkrivaem kak dinamicheskii nabor
List1.Clear
Do Until MyRs.EOF 'cicle formirovanija end of file
List1.AddItem MyRs!Author 'dobavlenie zapisi v list1
MyRs.MoveNext
Loop
End Sub
Private Sub Command3_Click()
sSQL = "create index n_izdatel on Izdatelstvo(Izdatelstvo ASC)"
On Error Resume Next
MyDB.Execute sSQL
sSQL = "create index knig on Knigi(Knigi ASC)"
On Error Resume Next
MyDB.Execute sSQL
End Sub

Private Sub Command4_Click()
sSQL = "drop index n_izdatel on Izdatelstvo"
On Error Resume Next
MyDB.Execute sSQL
sSQL = "drop index Avtor on Avtors"
On Error Resume Next
MyDB.Execute sSQL
sSQL = "drop index form on Product"
On Error Resume Next
MyDB.Execute sSQL
sSQL = "drop index zan on Zanri"
On Error Resume Next
MyDB.Execute sSQL
sSQL = "drop index knig on Knigi"
On Error Resume Next
MyDB.Execute sSQL
End Sub

Private Sub List1_Click()
nam_izdatel$ = List1.Text
Set MyRs = MyDB.OpenRecordset("Izdatelstvo", dbOpenTable)
On Error GoTo m01
MyRs.Index = "n_izdatel"
MyRs.Seek "=", nam_izdatel$
Label1.Caption = MyRs!Izdatelstvo
k = MyRs!Izdat_ID
Set MyRs = MyDB.OpenRecordset("Knigi", dbOpenTable)
On Error GoTo m01
MyRs.Index = "Knig"
MyRs.Seek "=", k
Label2.Caption = MyRs!Name_Knigi
Set MyRs = Nothing
Exit Sub
m01:
MsgBox ("Index error")
Set MyRs = Nothing
End Sub