连接模块:Public cn As New ADODB.ConnectionPublic rs As New ADODB.RecordsetPublic cmd As New ADODB.CommandPublic ssql As StringPublic Sub Connect()
Dim strConnect As String
Dim server
Dim user
Dim password
server = "服务器名"
user = "sa"
password = "密码"
cn.ConnectionTimeout = 30
strC...
模块中应写Public gCN As New Connection'数据库连接Public gstrUserID As String '用户IDPublic gstrUserName As String '用户名Sub main() gCN.ConnectionString = "Provider=MSDASQL.1;Pe...