data is downloading but is column headers are not displaying
i have created table called tblbatch_headers in database

1st (batch headers)column name --> wds next 2nd column as Field1,Field2,Field3,Field4,Field5,Field6,Field7,Field8,Field9,Field10...etc

    Dim cnt As ADODB.Connection
    Dim rst1 As ADODB.Recordset, rst2 As ADODB.Recordset
    Dim stDB As String, stSQL1 As String, stSQL2 As String
    Dim strConn As String
    Dim wbBook As Workbook
    Dim Sheet1 As Worksheet
    
    Dim lnField As Long, lnCount As Long
    Dim dataStr As String
     'Instantiate the ADO-objects.
    Set cnt = New ADODB.Connection
    Set rst1 = New ADODB.Recordset
    Set rst2 = New ADODB.Recordset
     
    Set wbBook = ThisWorkbook
    Set Sheet1 = wbBook.Worksheets(1)
     
     'Path to the database.
    stDB = "mysql32"
     
     'Create the connectionstring.
    strConn = "Driver=MySQL ODBC 5.2 Unicode Driver;" _
    & "Data Source=" & stDB & ";"
     
     'The 1st raw SQL-statement to be executed.
     ' stSQL1 = "SELECT * FROM tblbatch_headers where idBatch " & batchID & "order by col_seq asc"
     
     'The 2nd raw SQL-statement to be executed.
     stSQL2 = "SELECT * FROM  " & InputBox("Enter the Batch Name") & "  where FQR_User_Code='" & Application.username & _
         "' and line_status in('QP') order by line_status" '
     'Clear the worksheet.
     Sheet1.Range("A1:FA1").CurrentRegion.Clear
     
    With cnt
        .Open (strConn)   'Open the connection.
        .CursorLocation = adUseClient 'Necessary to disconnect the recordset.
    End With
     
     With rst1
'       .Open stSQL1, cnt    'Create the recordset.
       Set .ActiveConnection = Nothing 'Disconnect the recordset.
     End With
     
    With rst2
        .Open stSQL2, cnt 'Create the recordset.
        Set .ActiveConnection = Nothing 'Disconnect the recordset.
    End With
     
    With Sheet1
'        .Cells(2, 1).CopyFromRecordset rst1 'Copy the 1st recordset.
        .Cells(3, 1).CopyFromRecordset rst2 'Copy the 2nd recordset.
   End With
     
     'Release objects from the memory.
'    rst1.Close
   '  Set rst1 = Nothing
    rst2.Close
    Set rst2 = Nothing
    cnt.Close
    Set cnt = Nothing
    
End Sub