Public Function Conexion_sql(ByVal servidor As String, ByVal basedatos As String, ByVal consspi As Boolean, ByVal usuario As String, ByVal password As String) As String
Try
String_de_conexion = "Server=" & servidor & "; " & "DataBase=" & basedatos & "; "
If Not consspi Then
String_de_conexion &= "user id=" & usuario & ";password=" & password
Else
String_de_conexion &= "Integrated Security=SSPI"
End If
Return String_de_conexion
Catch ex As Exception
Throw ex
End Try
End Function