[求助]连接局域网ACCESS数据库的问题(搞定) Post By:2009/12/2 21:11:00 [只看该作者]
Dim ipFile As String = e.ProjectPath & "ip.txt" If e.Name = "ZJGL" Then If Filesys.FileExists(ipFile) Then Dim ip As String = FileSys.ReadAllText(ipFile) e.C";Data Source = "& ip &" ; Persist Security Info=True;Jet OLEDB:Database Password=admin888 " End If End If