خطای پیوستی را چگونه فارسی کنم؟

[azadich]

خطا مربوط به کد زیر فقط می خوام فارسی کنم ممنون میشم راهنمایی کنید
Function LinkAllTable(Optional strRamz As String) As Boolean
'ÝÑÖ ÈÑÇíä ÇÓÊ ßå ÝÇíá ÍÇæí ÇØáÇÚÇÊ ÈÇ Óæä ãËáÇ Main
' ÏÑ ßäÇÑ ÝÇíá ÇÌÑÇíí ÈÑäÇãå ÇÓÊ
db = CurrentDb.Name
strFrom = db
typ = Right(db, 4)
db = Mid(db, 1, Len(db) - 4)
strPath = Trim(db & "_Main" & typ) 'ÈÏÓÊ ÂæÑÏä äÇã ÝÇíá ÌÏÇæá

Set dbs = OpenDatabase(strPath, True, False, "; pwd=" & strRamz)
dbs.NewPassword strRamz, ""
For Each TableDef In dbs.TableDefs
strTable = TableDef.Name
If Mid(strTable, 1, 4) = "Msys" Then GoTo 10
If AllTable_s((strTable)) Then GoTo 10 'ÇÑ áíäß ÌÏæá æÌæÏ ÏÇÑÏ Èå ÌÏæá ÈÚÏí ÈÑæ
DoCmd.SetWarnings False
strAp = "Microsoft Access"
DoCmd.TransferDatabase acLink, strAp, _
strPath, acTable, strTable, strTable, False
10:
Next
LinkAllTable = True
dbs.NewPassword "", strRamz
Exit Function
20:
MsgBox -Err
dbs.NewPassword "", strRamz
End Function

[azadich]

خطا مربوط به کد زیر فقط می خوام فارسی کنم ممنون میشم راهنمایی کنید
Function LinkAllTable(Optional strRamz As String) As Boolean
'ÝÑÖ ÈÑÇíä ÇÓÊ ßå ÝÇíá ÍÇæí ÇØáÇÚÇÊ ÈÇ Óæä ãËáÇ Main
' ÏÑ ßäÇÑ ÝÇíá ÇÌÑÇíí ÈÑäÇãå ÇÓÊ
db = CurrentDb.Name
strFrom = db
typ = Right(db, 4)
db = Mid(db, 1, Len(db) - 4)
strPath = Trim(db & "_Main" & typ) 'ÈÏÓÊ ÂæÑÏä äÇã ÝÇíá ÌÏÇæá

Set dbs = OpenDatabase(strPath, True, False, "; pwd=" & strRamz)
dbs.NewPassword strRamz, ""
For Each TableDef In dbs.TableDefs
strTable = TableDef.Name
If Mid(strTable, 1, 4) = "Msys" Then GoTo 10
If AllTable_s((strTable)) Then GoTo 10 'ÇÑ áíäß ÌÏæá æÌæÏ ÏÇÑÏ Èå ÌÏæá ÈÚÏí ÈÑæ
DoCmd.SetWarnings False
strAp = "Microsoft Access"
DoCmd.TransferDatabase acLink, strAp, _
strPath, acTable, strTable, strTable, False
10:
Next
LinkAllTable = True
dbs.NewPassword "", strRamz
Exit Function
20:
MsgBox -Err
dbs.NewPassword "", strRamz
End Function
کسی نیست جواب بده فوری ممنون میشم

[azadich]

کسی نیست جواب بده فوری ممنون میشم
فقط می خوام این پیغام فارسی بشه ممنون میشم جواب بدید

[amir179]

چرا اسرار دارید که فارسی بشه

[sinanice206]

اصرا نه اسرار=سر!!!!!!!