Visual Basic.NET - Consulta SQL

Public Conexion As String = "Data Source=.\SQLEXPRESS;Initial Catalog=Construccion;Integrated Security=True"

    Public MiConexion As New SqlConnection(Conexion)

    Public Rs As SqlDataReader

    Public Com As New SqlCommand

    Public SQL As String

Dim miTabla As New DataTable

                SQL = "Select CodCli,Descripcion, Dirección, Teléfono from Clientes where CodCli=" & CodCli & " order by 2 desc"

                Com = New SqlCommand(SQL, MiConexion)

                Rs = Com.ExecuteReader()

                miTabla.Load(Rs, LoadOption.OverwriteChanges)

                DataGridView.DataSource = miTabla

Private Sub cboCli_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboCli.SelectedIndexChanged

        CodCli = Microsoft.VisualBasic.Compatibility.VB6.GetItemData(cboCli, cboCli.SelectedIndex)

            EndSub