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:


      Private Sub btnBuscar_Click(sender As Object, e As EventArgs) Handles btnBuscar.Click
        Try
            Dim con As String
            con = "Data Source=GDJF04973;Initial Catalog=LabInventarioN3;User ID=f5;Password=f5report"
            Dim cn As New SqlConnection
            cn.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 & "'", cn)
            cn.Open()
            query.ExecuteNonQuery()
            btnActualizar.Show()
            btnGuardar.Hide()
        Catch ex As Exception
            MsgBox("Error:" + ex.ToString)
        End Try
    End Sub

El codigo funciona correctamente. Solo quiero que se llenen los TextBox con los datos obtenidos.

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