change your Select Query as following
SELECT TOP(10) * FROM SMSDATA1DB
check following code to Export data from access to Excel
Dim AccessConn As New System.Data.OleDb.OleDbConnection("Provider=Micros oft.Jet.OLEDB.4.0;"&"Data Source=e:\My Documents\db1.mdb")
AccessConn.Open()
Dim AccessCommand As New System.Data.OleDb.OleDbCommand("SELECT TOP 10 * INTO [Excel
8.0;DATABASE=C:\Book11.xls;HDR=NO;].[Sheet7] from SMSDATA1DB", AccessConn)
AccessCommand.ExecuteNonQuery()
AccessConn.Close()