回复 6楼 约定的童话
我改了不行。找不到文件路径
能给改改吗?
Set Con = New ADODB.Connection '新建一个连接
ProviderStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"
SourceStr = "http://192.168.1.6"
SourceName = "\date.mdb;"
SourceStr = "Data Source=" & SourceStr & SourceName
ConString = ProviderStr & SourceStr '设定连接字符串
DataEnvironment.Connection.ConnectionString = ConString
Con.Open ConString
启动.Show
[此贴子已经被作者于2022-7-4 10:58编辑过]