Visual Basic.NET - cargar datos de consultas sql

Dim SQL As String = "select codigo,clave,productolinea,proveedor,modelo from TUTABLA  where " & txtcadena.Text & " "

            Dim MiConexion As New SqlConnection("Data Source=TU IP DEL SERVIDOR ;Initial Catalog=TUBASEDADATOS;Integrated Security=true")

            'PARA CONTAR CUANTOS REGISTRO SE ENCONTARON

            Dim Rs As SqlDataReader

            Dim Com As New SqlCommand

            Dim cadena As SqlDataAdapter = New SqlDataAdapter(SQL, MiConexion)

            Dim DT As DataTable = New DataTable

            cadena.Fill(DT)

            Com.Connection = MiConexion

            MiConexion.Open() 'abrimos la conexion

            Com = New SqlCommand(SQL, MiConexion)

            If DT.Rows.Count > 0 Then ' si el cout es diferente de cero si hay registro y HACE LA CONSULTA

                Rs = Com.ExecuteReader()

                Rs.Read()

                dtgproductos.DataSource = DT ' pasamos la consulta al datagridview

                Rs.Close()

                MiConexion.Close()

Else

                'si no hay dato manda este mensaje

                MessageBox.Show("no hay dato", "MENSAJE", MessageBoxButtons.OK, MessageBoxIcon.Warning)

END IF