vba 显示表中数据

Sub test()
    
    On Error GoTo CloseRs
    
    Dim conn As New ADODB.Connection
       
    conn.connectionString = "Provider=OraOLEDB.Oracle;Data Source=xxxxxx;User Id=xxxxxx;Password=xxxxxx;"
      
    conn.Open
    
    Dim rs As Object
    Dim tableListSheet As Excel.Worksheet
    Dim i As Integer
   
    Dim v_sql As String
               
    v_sql = "SELECT * FROM test1"
                            
    Set rs = CreateObject("ADODB.Recordset")
    
    rs.Open v_sql, conn
    
    Worksheets("sheet1").Cells.Clear
        
    Worksheets("sheet1").Range("A1").CopyFromRecordset rs
    
CloseRs:
  If Not rs Is Nothing Then
    rs.Close
    conn.Close
  End If
End Sub