VB定时修改数据库名称 用VB6编写的代码 Private Sub Command2_Click() strconnect = "provider=SQLOLEDB;Persist Security Info=true;User Id='" & Tname & "';PassWord='" & Tpwd & "'; Ini