Visual Basic - ayuda con boton de busqueda

como puedo hacer que un boton de busqueda (select en sql) coloque la informacion de un campo de un base de datos en un text box, para esto debo aclarar que un segundo textbox esta escito el id a buscar.

Private Sub como se llame tu botón de búsqueda_Click()
Data1.RecordSource = "Select * From como se llame tu tabla Where id = '" & como se llame tu segundo text box.Text & "'"
Data1.Refresh
If Not Data1.Recordset.EOF Then
Data1.Recordset.MoveFirst
While Data1.Recordset.EOF = False
como se llame tu text box.Text = Data1.Recordset.Fields("como se llame tu campo")
Data1.Recordset.MoveNext
Wend
End If
End Sub