No se como hacer lo siguiente:

Quiero llenar los TextBox de mi Formulario a partir del resultado de un consulta en sql.
Mi codigo de la consulta en visual es el siguiente:


      Public Function Busqueda() As String
        Dim con As String
        con = "Data Source=GDJF04973;Initial Catalog=LabInventarioN3;User ID=f5;Password=f5report"
        Dim cnn As New SqlConnection
        cnn.ConnectionString = con
        Dim query As New SqlCommand("select i.ID,i.Proyecto,i.Tipo, i.Cantidad,i.Ubicacion,i.Descripcion,i.Modelo,i.[Numero de Parte],
                                         i.NumeroSerie,i.Status,i.Comentarios from InventarioLab i where i.ID like '" & txtBuscarID.Text & "'", cnn)
        cnn.Open()
        Dim cmd As SqlDataReader
        cmd = query.ExecuteReader()
        Dim res As String = Nothing
        If cmd.Read() Then res = cmd(0)
        cmd.Close()
        cnn.Close()
        Return res
    End Function

El codigo del Boton es el siguiente:

       Private Sub btnBuscar_Click(sender As Object, e As EventArgs) Handles btnBuscar.Click

        txtID.Text = Busqueda()
        btnActualizar.Show()
        btnGuardar.Hide()

    End Sub

El codigo funciona correctamente. Solo quiero que se llenen los TextBox con los datos obtenidos en su campo correspondiente

Mi formulario es el siguiente:

[![introducir la descripción de la imagen aquí][1]][1]

La consulta se hace al dar click en el Boton Buscar.

Gracias.


  [1]: https://i.sstatic.net/xkN0r.png