Visual Basic - problema de busqueda

hola,un saludo a todos...

Quisiera hacerle una consulta , es que tengo un problemita con un busqueda de un programa de control de inventarios que estoy realizando, aqui les doy el codigo...

Private Sub Combo1_Click()
If Combo1.Text = "Celular" Then

Text1.Text = InputBox("Introduzca el Serial del Celular a Asignar", "Mensaje")

Data1.DatabaseName = "E:\EVI de Venezuela S.A\Proyecto (Definitivo)\BD.mdb"
Data1.RecordSource = "Equipo"

Sql = "Select TipoEquipo,Marca,Modelo,Status,MemoriaRam,DiscoDuro,AFE,OrdenCompra,Factura from Equipo where Serial = " & Trim(Text1.Text) & ""
Data1.RecordSource = Sql

If Data1.Recordset.RecordCount > 0 Then
Text1.Text = Data1.Recordset.Fields("Serial")
Text3.Text = Data1.Recordset.Fields("Marca")
Text4.Text = Data1.Recordset.Fields("Modelo")
Combo2.Text = Data1.Recordset.Fields("Status")
Text5.Text = Data1.Recordset.Fields("MemoriaRam")
Text6.Text = Data1.Recordset.Fields("DiscoDuro")
Text7.Text = Data1.Recordset.Fields("AFE")
Text8.Text = Data1.Recordset.Fields("OrdenCompra")
Text9.Text = Data1.Recordset.Fields("Factura")

End If
End If
End Sub

El problema es que el resultado de este proceso es solamente el primer registro que tengo en la base de datos,,, no importa cual serial introduzca siempre me visualiza el primer registro, ahora, es extraño porque tengo otro programa con una busqueda igual a esta y me realiza la busqueda perfectamente.

Les agradeceria que me dieran sua opinion al respecto,

Muchas gracias, espero pronta respuesta.... saludos!

Pero no entiendo cual es el problema, es que quieres que se muestren los duplicados o los muchos registros que puedan encontrarse con una serie?... xq si, el fuente dice que se muestre siempre el 1ero q lo encuentre asi haya 2 o más.

Prueba esto

Sql = "Select TipoEquipo,Marca,Modelo,Status,MemoriaRam,DiscoDuro,AFE,OrdenCompra,Factura from Equipo where Serial =' " & Trim(Text1.Text) & "' "

Comilla simple después del igual y entre las comillas dobles
Un Refresh después de
Data1.RecordSource = Sql , también puede ayudar.

El anterior RecordSource creo que sobra.