在服务器放一个最新版本,然后在客户端用另一个程序打开前台程序,在登陆时检查一下服务器的版本,如果有最新版本,就强制更新。这个是一位版主的模块。(好象是竹笛的)
Public Function GetVersion(FileName As String, strPWS As String) As String '检测系统版本号'
Dim rst As ADODB.Recordset
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & FileName & ";jet oledb:database password='" & strPWS & "'"
strSql = "select * from tblversion"
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.Open strSql, strConn
rst.MoveLast
GetVersion = rst!版本号
rst.Close
Set rst = Nothing
End Function