Dim Grdbuy1 As New ADODB.Recordset
cn.ConnectionString = ConnStr
cn.Open
         cn.Execute "INSERT INTO cbjl(NAME,DECE_ONE,DECE_DEC,THIS_DATE)  " & _
         "select * from openrowset('microsoft.jet.oledb.4.0','excel 8.0;database=D:\热量表程序\test.xls;imex = 1',sheet1$);"
这样写,如果有数据库里的字段是数值型的导入有问题,说是无法把nvarchar转换为number?