% REM ' 创建ADO连接对象 Set varCon = CreateObject ( " ADODB.Connection " ) ' 连接字符串 strConStr = {Provider = SQLOLEDB;Data Source = lmszmc.lmszmc.com;Uid = sa;Pwd = ;Database = LMSMS} ' 打开连接 varCon.open strConStr ' 循环发送短信 For i = Lbound (strSendContent) To Ubound (strSendContent) For j = Lbound (ArraySmsMobile) To Ubound (ArraySmsMobile) ' SQL语句