Dim Conn As New ADODB.Connection
ConnectionString = "Provider=sqloledb;Data Source=ZHANGHA;Initial Catalog=mrpdata;Integrated Security=SSPI; ConnectionS
ConnectionString = "Provider=sqloledb;Data Source=ZHANGHA;Initial Catalog=mrpdata;Integrated Security=SSPI; ConnectionS