Leer archivo .ini

[yamiblancoc]

HOLA BUEN DIA, TENGO UNA GRAN DUDA Y NO SE COMO RESOLVERLA HE LEIDO VARIOS ARTICULO PERO NO SE COMO HACERLO Y ME DA ERRORES...

ESTE ES MI ARCHIVO SIPRE.INI

[REFERENCIAS_SIPRE]

server=8247

bdatos2=SIPRE
bdatos3=INTRA


COMO HAGO PARA QUE MI SISTEMA EN VB ME LO LEA Y SE META EN MI SERVIDOR Y BUSQUE EN ESAS BASE DE DATOS

AQUI ES LO QUE HICE PERO NO SE SI ESTA BIEN

Código VB:

Global servidor1 As String
Global servidor2 As String
Public BD_servidor As String
Public BD_usuario As String
Public BD_nombre As String
Public BD_clave As String
 
'**ABRIR EL ARCHIVO PLANO**
 
 Public Function Def_Var()
   Dim variable, StrVar As String
   Open App.Path & "\SIPRE.ini" For Input As #1
 
    Do While Not EOF(1)
      Line Input #1, variable
      StrVar = Trim(Mid(variable, 1, 10))
      If UCase(StrVar) = "server=" Then
         servidor1 = Trim(Mid(variable, 11, 18))
      End If
      
       StrVar = Trim(Mid(variable, 1, 8))
      If UCase(StrVar) = "bdatos2=" Then
         bdatos2 = Trim(Mid(variable, 9, 16))
      End If
  
      StrVar = Trim(Mid(variable, 1, 8))
      If UCase(StrVar) = "bdatos3=" Then
         bdatos3 = Trim(Mid(variable, 9, 16))
      End If
      
      Loop
 
 
  Close #1
   
End Function
 
Public Sub Toma_registro()
 
 
 Dim Aux_clave As String
 Dim Aux_usuario As String
 
 'BD_servidor = GetSetting("SIPRE", "Base de Datos", "Servidor")
 'BD_nombre = GetSetting("SIPRE", "Base de Datos", "NOMBD")
 'BD_usuario = GetSetting("SIPRE", "Base de Datos", "User")
 
 'Obj_Enc.Decrypt BD_usuario
 'BD_usuario = Trim(Obj_Enc.Content)
 
 'BD_clave = GetSetting("SIPREFII", "Base de Datos", "Clave")
 'Obj_Enc.Decrypt BD_clave
 'BD_clave = Trim(Obj_Enc.Content)
 
 'bdatos2 = "driver={Sql Server};server=" & Trim(BD_servidor) & ";Uid=" & Trim(BD_usuario) & ";Pwd=" & Trim(BD_clave) & ";Database=" & Trim(BD_nombre)
  bdatos2 = "driver={Sql Server};server=8247;Uid=sa;Pwd=123;Database=SIPRE"
 'bdatos2 = "driver=(Sql Server);server=" & "localhost" & ";Uid=" & "sa" & ";Pwd=" & "123" & ";Database=" & "SIPRE"
 
tipo_datos1 (bdatos2)
 
 
 'bdatos3 = "driver={Sql Server};server=" & Trim(BD_servidor) & ";Uid=" & Trim(BD_usuario) & ";Pwd=" & Trim(BD_clave) & ";Database=" & Trim(BD_nombre)
  bdatos3 = "driver={Sql Server};server=8247;Uid=sa;Pwd=123;Database=INTRA"
 'bdatos3 = "driver=(Sql Server);server=" & "localhost" & ";Uid=" & "sa" & ";Pwd=" & "123" & ";Database=" & "SIPRE"
 
tipo_datos1 (bdatos3)
 
 
End Sub
 

LO QUE QUIERO ES ELIMINAR LO QUE TENGO QUEMADO EN bdatos 2 y bdatos3 Y QUE EL SISTEMA ME LEA LO QUE ESTA EN EL ARCHIVO .INI


GRACIAS A LOS QUE ME PUEDAN AYUDAR