Saludos
Estoy haciendo una aplicacion con: data, MSFlexgrid, acces 97 y tengo dos pequeñitos problamitas que me tienen loko. Necesito que "Ordene alfabeticamente" los datos que ingreso a la MSFlexgrid automáticamente despues de haberlos ingresados y tambien necesito un motor de busqueda que muestre los resultados en otra MSflexgrid, tengo un motor de busqueda, pero solo busca hasta encontrar 1 registro  solamente pero yo necesito un motor que busque todos los registros exitentes y que se detenga cuando ya no queden registros
ej:    Tengo varios libros  de un mismo autor (Larson), pero de diferentes títulos    ( Claculo diferencial, Calculo Comun etc..). cuando quiero buscar a un autor que tenga varios libros, me busca hasta encontrar el primero que tenga como autor "Larson", y yo necesito que aparezcan todos los libros con autor "Larson"
Si alguien tiene algun link donde pueda investigar o si alguien tiene el codigo, por favor ayudeme
saludos ; aqui les dejo el motor de busqueda que tengo:       
Private Sub Command1_Click()
        Data1.Recordset.Index = "Autor"
        Data1.Recordset.Seek "=", Text1
          If Data1.Recordset.NoMatch Then
            MsgBox "El Autor ingresado no existe", , "Intentelo Nuevamente"
            Text1.Text = ""
            Text1.Setfocus
          Else
            Data1.Recordset.Index = "Autor"
            Data1.Recordset.Seek "=", Text1.Text
            Grilla.Col = 0
            Grilla.Text = Data1.Recordset.Fields("Numero de Registro")
            Grilla.Col = 1
            Grilla.Text = Data1.Recordset.Fields("Titulo")
            Grilla.Col = 2
            Grilla.Text = Data1.Recordset.Fields("Autor")
            Grilla.Col = 3
            Grilla.Text = Data1.Recordset.Fields("Nº de Copias")
            Text1.Text = ""
          End If
End Sub