module1.bas

SQLserver动态生成.和连接器,有了它就不需要写很多代码来生成连接

Attribute VB_Name = "Module1"
Public cnn As New ADODB.Connection '新建一个数据源变量
Public rs As New ADODB.Recordset '新建一个记录集
Public server As String '服务器名称
Public loginname As String 'SQL登陆用户名
Public password As String 'SQL密码
Public DataName As String '数据库名