vba excel ADO programming

ado.vba

Sub sbADOExample()
  
  Dim sSQLQry As String
  Dim Conn As New ADODB.Connection
  Dim mrs As New ADODB.Recordset
  dim DBPath As String, sconnect As String
  
  DBPath = ThisWorkbook.FullName
  sconnect = "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & DBPath & ";HDR=Yes';"
  
  Conn.Open sconnect
  
  sSQLString = "SELECT * From [Sheet1$]"
  
  mrs.Open sSQLString, Conn
  
  Sheet2.Range("A2").CopyFromRecordset mrs
  
  mrs.Close
  Conn.Close
  
End Sub