مشکل با دو کلمه بودن نام ستون

[akbarg64]

سلام دوستان من یه مشکل داشتم در مورد انتقال اطلاعات از اکسل به اکسس.که تونستم خودم حل کنم اما یه مشکل دارم اینکه نام ستون های اکسل فارسی هست و بعضی هاش دو کلمه هست مثلا یکیش هست: قابل تخصیص که متاسفانه خطا میده ضمن اینکه کلا با کلمه تخصیص مشکل داره من ازین کد برای انتقال به اکسس استفاده میکنم.به نظر شما چه راهی به کار ببرم که نیاز نباشه نام ستون ها رو تغییر بدم چون فایل ها زیاد هستند و وقت گیر.ممنون میشم.
Dim cnhrda As ADODB.Connection

Set cnhrda = New ADODB.Connection
cnhrda.CursorLocation = adUseClient
cnhrda.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.path & "\Data\dbase.mdb;"


Dim rsmdb As ADODB.Recordset
Set rsmdb = New ADODB.Recordset
rsmdb.Open "Select * from etebarat", cnhrda, adOpenStatic, adLockOptimistic

rs.MoveFirst

While Not rs.EOF
With rsmdb
.AddNew
!fasl = rs!ÝÕá
!barname = rs!ÈÑäÇãå
!mannage = rs!ãÏíÑíÊ
!tarh = rs!ØÑÍ
!manba = rs!ãäÈÚ
!project = rs!ÑæŽå
!nahveh = rs!äÍæå
!hajm = rs!ÍÌã
!vahed = rs!æÇÍÏ
!khodyari = rs!ÎæÏíÇÑí
!mosavab = rs!ãÕæÈ
'!takhsis = rs!ÊÎÕíÕ
!takhsis = rs!ÞÇÈá
!jazb = rs!ÌÐÈ
!sal = rs!ÓÇá
!shomare = rs!ãæÇÝÞÊäÇãå
.Update
End With
rs.MoveNext
Wend

rsmdb.Close
MsgBox "ÇØáÇÚÇÊ ÈÇ ãæÝÞíÊ ËÈÊ ÔÏ"

[محسن واژدی]

سلام علیکم
rs در فیلدهایی که فاصله دارند بصورت کامل rs.Fields("fname") بنویسید
مثلا":

With rsmdb
!takhsis = rs.Fields("قابل تخصیص")
End With


موفق باشید

[akbarg64]

ممنون.اما اینجوری هم با بعضی کلمات مثل قابل تخصیص-زمین-سهم متقاضی-بخش-شهرستان-کد ملی-شعبه-مدیریت و.....مشکل داره.چیکار کنم.لطفا دوستان کمک کنید.خیلی ضروریه.