Public Class ConexionNET Dim strServidor As String Dim strMDServidor As String Dim strBase As String Dim strUser As String Dim StrPassw As String Public Property Servidor() Get Servidor = strServidor End Get Set(ByVal Value) strServidor = Value End Set End Property Public Property MDServidor() Get MDServidor = strMDServidor End Get Set(ByVal Value) strMDServidor = Value End Set End Property Public Property BaseDatos() Get BaseDatos = strBase End Get Set(ByVal Value) strBase = Value End Set End Property Public Property Usuario() Get Usuario = strUser End Get Set(ByVal Value) strUser = Value End Set End Property Public Property Password() Get Password = StrPassw End Get Set(ByVal Value) StrPassw = Value End Set End Property End Class