Thanks alot for the help. I ran the code through the upgrade utility to convert it from vb6 to .net because I had changed the data types as you had pointed out but for some reason it wasnt populating anything on the end result. I am not sure why I didnt think to convert it over in the first place but this was the end result for the functions and worked nicely.

Code:
    Private Declare Function SQLDataSources Lib "odbc32.dll" _
    (ByVal hEnv As Integer, _
     ByVal fDirection As Short, _
     ByVal szDSN As String, _
     ByVal cbDSNMax As Short, _
     ByRef pcbDSN As Short, _
     ByVal szDescription As String, _
     ByVal cbDescriptionMax As Short, _
     ByRef pcbDescription As Short) As Integer
	
    Private Declare Function SQLAllocHandle Lib "odbc32.dll" _
    (ByVal HandleType As Short, _
     ByVal InputHandle As Integer, _
     ByRef OutputHandlePtr As Integer) As Integer
	
    Private Declare Function SQLSetEnvAttr Lib "odbc32.dll" _
    (ByVal EnvironmentHandle As Integer, _
     ByVal dwAttribute As Integer, _
     ByVal ValuePtr As Integer, _
     ByVal StringLen As Integer) As Integer
	
    Private Declare Function SQLFreeHandle Lib "odbc32.dll" _
    (ByVal HandleType As Short, _
     ByVal Handle_Renamed As Integer) As Integer