请教如何屏蔽掉 rs.Source 的SQL语句

Question

Private Sub Form_Load()    Dim rs As New ADODB.Recordset
    
    Set rs = GetRS()
    
    MsgBox rs.Source
    '请教如何屏蔽掉 rs.Source 的SQL语句
End SubPrivate Function GetRS() As Recordset    Dim cnn As New ADODB.Connection
    
    cnn.CursorLocation = adUseClient
    cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind;Data Source=."
    
    Set GetRS = cnn.Execute("SELECT * FROM Orders")
    Set GetRS.ActiveConnection = Nothing
    Set GetRS.DataSource = Nothing
End Function

Answer 1

rs.Close
Set rs.Source=Nothing