Sub Main()
    Set Con = New ADODB.Connection '新建一个连接
    ProviderStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"
    SourceStr = App.Path
    SourceName = "\date.mdb;"
    SourceStr = "Data Source=" & SourceStr & SourceName
    ConString = ProviderStr & SourceStr '设定连接字符串
    DataEnvironment.Connection.ConnectionString = ConString
    Con.Open ConString
    启动.Show
End Sub
我想把这个连接改成SQL
IP=192.168.1.8
用户名=sa
密码=sa
数据库=DLSY
那个大佬帮我改下谢谢。

你新建一个工程，引用 控件 adobc （Microsoft ADO Date Control 6.0），然后在控件上点右键，选择 ADODC属性
通用 选项卡中选择 使用连接字符串，再点后面的生成，按向导一步一步的生成。
确定后，会自动 生成连接字符串
Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DLSY;Data Source=192.168.1.8

复走吧，然后工程不用保存了。

不行啊

你直接 在 ADODC 里测试，测试通过再拿到工程里.

如果有 ACCESS 的话，到这里面测试。实在没有。也可以使用 VB6 自带的数据编辑器（VISDATA） 进行测试。

没有环境，所以无法测试你的问题所在。

我用VB编写的MSSQL数据库连接测试工具测试可以，但在这不行。报错

新建一个文本文件,把扩展名改为 udl ,然后双击这个 文件,会出来个数据库连接属性对话框,选择相应的程序,只要测试连接成功就是了.然后用记事本打开.有Provider= 的这行就是连接代码了.
没有sql数据库，不好测试。