背景:1,利用CSDN的搜索资源,得到一些解决方案。    
      2,参照如下:
    
代码:
    Dim Conn As Connection
    Set Conn = New Connection
    With Conn
        If .State = 1 Then
            Conn.Close
        End If
        .CursorLocation = adUseClient
        .ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=;Initial Catalog=StudyDuwamish;Data Source=YANGHJ"
        .Open
        .Execute "EXEC master..xp_cmdshell 'out StudyDuwamish..Customer OUT D:\DT.txt -c -YANGHJ -Sa -'"
        .Close
    End With
        
现象:
     1,程序运行后系统没有报错。
     2,运行后系统也没有产生DT.txt文件。
问题:
     1,程序问题出在什么地方?
     2,解决的方案是什么?