Solo por cuestiones de pruebas intenta ésto para saber si te está regresando resultados.
Cita: Data1.RecordSet.FindFirst "nserie Like '*" & txtbuscar & "*'"
If Data1.RecordSet.NoMatch Then
MsgBox "No se encontraron resultados"
EndIf
Ahora otra pregunta... estas seguro que
txtbuscar es una cadena o es un control textbox..??
Por que si es control textbox debe ir así:
Cita: Data1.Recordset.Findfirst "nserie='" & txtbuscar.Text & "'"
Salu2