could you give me some advice?


my platform is office 2003 (english) Sp1. Please see attachment for
details.

Usuallly I use Ado and "select * from [sheet1$]" to deal with some
database in excel spreadsheet. but I found the vba program will be
stopped if one cell of some text field include a lot of characters. I
have tested it. I found if the number of all characters in one cell is
less than or equal to 911, it is okay. But if the number is bigger
than 911, then vba will be stoped.
show:

run-time error : -2147467259 (80004005)
Method copyfromrecordset of object range failed

my code is :


Sub inputdata()
Dim x As Object
Dim yy As Object
Dim sql As String
Dim mysheet As Object

Set x = CreateObject("ADODB.Connection")

x.Open "Provider= Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel
8.0;Data Source=" & ThisWorkbook.FullName

Set mysheet = Sheet2

sql = " select * from [sheet1$] "


Set yy = x.Execute(sql)
mysheet.Cells(1, 1).CopyFromRecordset yy
Set x = Nothing
Set yy = Nothing

End Sub


I do not how to upload my excel spreadsheet in this forum. if someone
knows, please help me. You could leave a email, I could send the
spreadsheet to you, you can test.

by the way, to my surprise, my chinese friend, who use officexp, or
office 2003 (chinese) can run the program in excel no problem. the
result can correct even the number of characters in one cell
increases to 9000.

could you give me some feedback. thank you.