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
那个大佬帮我改下谢谢。

不行啊

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