Visual Basic - ayuda urgente

Saludos, no se si alguien me pueda ayudar con esta duda pero no se como sacarlo les explico.

Tengo un label donde ya tengo informacion de una tabla y quiero que me lo busque esa informacion en otra tabla y me lo muestre en un text.

Ya que tengo varios dias intentandolo y no he podido les pongo el codigo que estoy acupando haber si alguien me puede ayudar.

Private Sub Text1_Change()
With Data2.Recordset
Dim TCadena, T As Variant
If Data2.Recordset.RecordCount > 0 Then
List1.Clear
Data2.Recordset.MoveFirst
TCadena = Len(Text1.Text)
While Not Data2.Recordset.EOF
TCadena = Mid(Data2.Recordset(1), 1, Len(Text1.Text))
If UCase(TCadena) Like UCase(Text1.Text) Then
List1.AddItem Data2.Recordset(1)
End If
Data2.Recordset.MoveNext
Wend
End If

End With
End Sub

De ante mano agradesco su Ayuda.

Ese codigo no concuerda con lo que dices ya que no veo por ningun lado de donde lees los datos del Label, solo veo que al haber un cambio en un TextBox intentas hacer algo

Yo antes usaba el control Data pero pues ahora lo uso asi :

Dim Dbs As Database, Resultado As Recordset
Set Dbs = OpenDatabase(App.Path & "\Datos.mdb")
Set Resultado = Dbs.OpenRecordset("SELECT * FROM tabla WHERE campo like '%" & text1 & "%';")
If Resultado.RecorCount <> 0 Then
MsgBox Resultado.Fields("campo")
End If
Dbs.Close

Este codigo busca parte de una cadena en la base de datos, en la tabla y campo que indiques