怎样实现不做二次登陆而调用数据库连接字符串

我想使用VB开发一个软件登陆窗口组件....想法是当我的调用这个组件登陆软件以后,【其它软件】也可以调用这个登陆状态，比如说调用它的数据库连接字符串,不用做二次登陆..请问我这个组件应该怎样做才可以达到这个效果呢.. 
注:注册表\数据库,记录登陆状态这些方法不算在内... 数据库 注册表 软件 vb --------------------编程问答-------------------- 这只不过是通讯或者说是程序接口问题，干嘛扯上数据库呢？ --------------------编程问答-------------------- 可以的。只要你的组件支持GetObject。
那么其他程序直接就可以取过来用了。

dim oYourObject as 对象名

set oYourObject = GetObject("库名.对象名")

补充：VB ,  COM/DCOM/COM+