CodeItBetter Programming Another VB Programming Blog

'Database - How to Copy data from an Access database into an Excel spreadsheet using a SQL SELECT statement
Private Sub cmdLoad_Click()
    Dim cnSrc As New ADODB.Connection
    Dim num_copied As Long
 
    Screen.MousePointer = vbHourglass
    DoEvents
 
    cnSrc.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & txtAccessFile.Text & ";"
    cnSrc.Execute "SELECT * INTO [Excel 8.0;" & "Database=" & _
        txtExcelFile.Text & "].[Books] FROM " & "Books", num_copied
    cnSrc.Close
 
    Screen.MousePointer = vbDefault
    MsgBox "Copied " & num_copied & " records."
End Sub