VB.net Conectar base de datos ´por ODBC

Hola en este post mostrare como conectar una base de datos desde Visual Basic Net por medio de ODBC, espero que a alguien le sea de utilidad.

'-------------------Primero Dleclaramos la coneccion recuerda cambiar los datos NombreDeBase, Usuario y Password
Dim cnn As New Odbc.OdbcConnection("Dsn=NombreODBC;uid=Usuario;pwd=Password" )

Dim sql As String
'----------------Se abre la coneccion
cnn.Open()

'----------------Escribimos la sentencia que se ejecutara
sql = " SELECT COUNT(DISTINCT Id_Línea) AS Numero FROM FactoresComisiónProducto"

'----------------Declaramos el ejecutor y el contenedor
Dim rs As New Odbc.OdbcCommand(sql, cnn)
Dim Tabla As Odbc.OdbcDataReader

'---------------Se ejecuta y se asigna el resultado
Tabla = rs.ExecuteReader

'---------------En este caso sabemos q solo nos regresara un registro asi q lo leemeos, en caso de que sean varios habria que hacerlos
'---------------con un ciclo
Tabla.Read()
'---------------Asignamos el campo a un objeto o variable
ContadorLineas = Tabla("Numero" )
'---------------Cerramos todo
Tabla.Close()
cnn.Close()

Bueno es todo en codigo, faltaria crear el Odbc, para eso tienen q ir a PAnel de COntrol,Herraientas Administrativas, Origen de datos, DNS del sistema, seleccionen el driver de la base de datos q usan y creen el odbc, el codigo es para visual 2008. Saludos