module1.bas

运用VB和SQL Server实现

Attribute VB_Name = "Module1"

Public LocalCnn As New ADODB.Connection   '本地连接
Public RemoteCnn As New ADODB.Connection    '远程连接

Public UserName As String    '用户名
Public UserPwd As String    '密码
Public PowerType As Integer '权限

Public MyDSN As String      'User DSN
Public UID As String        'User UID
Public PWD As String        'User PWD