[求助]又是发送邮件问题

superjinyu

Sub Send_Order_Mail()



Dim cnn As ADODB.Connection
Dim rst_cusid, rst_order_list As ADODB.Recordset

Dim olkapp As Outlook.Application
Dim newmail As MailItem

Set olkapp = CreateObject("outlook.application")



Set cnn = New ADODB.Connection
cnn.Open CurrentProject.Connection

这里写到currentproject(最后)，为什么说它变量未定义，少了什么吗