'返回连接字串 Public Function QueryConnectionString() As String QueryConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SYSDATABASE & _ ";Persist Security Info=False;Jet OLEDB:Database Password=" & DataBasePWD End Function
gump2000(阿甘) Public Function QueryConnectionString() As String QueryConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SYSDATABASE & _ ";Persist Security Info=False;Jet OLEDB:Database Password=" & DataBasePWD End Function 测试通过。 结贴!谢谢大家
Public Function QueryConnectionString() As String
QueryConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SYSDATABASE & _
";Persist Security Info=False;Jet OLEDB:Database Password=" & DataBasePWD
End Function
Public Function QueryConnectionString() As String
QueryConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SYSDATABASE & _
";Persist Security Info=False;Jet OLEDB:Database Password=" & DataBasePWD
End Function
测试通过。
结贴!谢谢大家