Leer archivo .ini

[yamiblancoc]

hola, bueno gracias pero ya habia resuelto utilice

Código Visual Basic:

Public Sub Toma_registro()
 
 
 Dim Aux_clave As String
 Dim Aux_usuario As String
    
    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, 7))
      If StrVar = "server=" Then
         Server = Trim(Mid(variable, 8, 15))
      End If
      
        
      StrVar = Trim(Mid(variable, 1, 7))
      If StrVar = "datos2=" Then
         datos2 = Trim(Mid(variable, 8, 15))
      End If
  
      StrVar = Trim(Mid(variable, 1, 7))
      If StrVar = "datos3=" Then
         datos3 = Trim(Mid(variable, 8, 15))
      End If
      
 
      Loop
 
 
 
 '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=" & Server & ";Uid=" & "sa" & ";Pwd=" & "pwd" & ";Database=" & datos2
 'bdatos2 = "driver=(Sql Server);server=" & "localhost" & ";Uid=" & "sa" & ";Pwd=" & "pwd" & ";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=" & Server & ";Uid=" & "sa" & ";Pwd=" & "pwd" & ";Database=" & datos3
 'bdatos3 = "driver=(Sql Server);server=" & "localhost" & ";Uid=" & "sa" & ";Pwd=" & "pwd" & ";Database=" & "SIPR"
 
tipo_datos1 (bdatos3)
 
 
End Sub
 

y funciona perfectamente