Data1.RecordSource = "SELECT * FROM Tabla1 WHERE referencia2 LIKE '1*' or referencia1 LIKE '1*' ORDER BY referencia2"

Private Sub Command1_Click()
Dim Aux As String
  Open "e:\pepe.txt" For Input As #1
  Do While Not EOF(1)
    Text2 = Aux
    Input #1, Aux
    Text1 = Aux
  Loop
End Sub

PSet (cursor.x - tmpX + RADIUS - Me.Left / Screen.TwipsPerPixelX, cursor.y - tmpY + RADIUS - Me.Top / Screen.TwipsPerPixelY - 20), COLOR

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.MousePointer = 0
Label1.FontUnderline = False
End Sub