فارسی شدن پیغام پیوست

[azadich]

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

Private Sub Label20_Click()
On Error GoTo ErrHandler
Dim strSql As String, fd As FileDialog
Set fd = FileDialog(msoFileDialogFilePicker)
With fd
.AllowMultiSelect = False
.Filters.add "Access Files", "*.Backm;*.Backm", 1
.InitialFileName = CurrentProject.Path
If .Show Then
strPath = .SelectedItems(1)
Else
Exit Sub
End If
End With
If MsgBox("ÏÑÕæÑÊ æÌæÏÇØáÇÚÇÊ ÞÈáí¡ÇØáÇÚÇÊ ÌÏíÏ ÌÇíÒíä ÔæäÏ", vbYesNo + vbQuestion) = vbYes Then
strSql = "DELETE * FROM 3 " & _
" WHERE madrese IN(SELECT madrese FROM 3 IN '" & strPath & "');"
DoCmd.RunSQL strSql
Refresh
End If

strSql = "INSERT INTO 3 ( madrese, q, dini, arabi, emla, ensha, qfarsi, ej, tar, gog, ez, qz, ryazi, olom, herfe, honar, var, par, dq, ddini, darabi, demla, densa, dfarsi, dej, dtar, dgog, dez, dqz, dryazi, dolom, dherfe, dhonar, dvar, dpar, tq, tdini, tarabi, ttemf, tensha, tfarsi, tej, ttar, tgog, temz, tqz, tryazi, tolom, therfe, thonar, tvar, tpar, tq1, tdini1, tarabi1, temf1, tensa1, tfarsi1, tej1, ttar1, tgog1, temz1, tqz1, tryazi1, tolom1, therfe1, thonar1, tvar1, tpar1, qq, qdini, qarabi, qemla, qensa, qafarsi, qej, qtar, qgog, qqz, qemz, qryazi, qolom, qherfe, qhonar, qvar, qpar, qaq1, qadini1, qaarabi1, qaemf1, qensa1, qafarsi1, qej1, qtar1, qgog1, qqz1, qemz1, qryazi1, qolom1, qherfe1, qhonar1, qvar1, qpar1, kol91, kol92, kolq91, kolq92, t91, t92, q91, q92, m91, m92 ) " & _
"SELECT madrese, q, dini, arabi, emla, ensha, qfarsi, ej, tar, gog, ez, qz, ryazi, olom, herfe, honar, var, par, dq, ddini, darabi, demla, densa, dfarsi, dej, dtar, dgog, dez, dqz, dryazi, dolom, dherfe, dhonar, dvar, dpar, tq, tdini, tarabi, ttemf, tensha, tfarsi, tej, ttar, tgog, temz, tqz, tryazi, tolom, therfe, thonar, tvar, tpar, tq1, tdini1, tarabi1, temf1, tensa1, tfarsi1, tej1, ttar1, tgog1, temz1, tqz1, tryazi1, tolom1, therfe1, thonar1, tvar1, tpar1, qq, qdini, qarabi, qemla, qensa, qafarsi, qej, qtar, qgog, qqz, qemz, qryazi, qolom, qherfe, qhonar, qvar, qpar, qaq1, qadini1, qaarabi1, qaemf1, qensa1, qafarsi1, qej1, qtar1, qgog1, qqz1, qemz1, qryazi1, qolom1, qherfe1, qhonar1, qvar1, qpar1, kol91, kol92, kolq91, kolq92, t91, t92, q91, q92, m91, m92 " & _
"FROM 3 IN '" & strPath & "' WHERE madrese Not IN(SELECT madrese FROM 3);"
DoCmd.RunSQL strSql
Refresh
Exit Sub
ErrHandler:
If err = 3078 Then
MsgBox "ÌÏæá ÑÔÊå åÇ ÏÑ ÝÇíá ÇäÊÎÇÈ ÔÏå æÌæÏ äÏÇÑÏ"
Else
MsgBox "ÇØáÇÚÇÊ Çíä Çíå íÇ ÑÔÊå ÏÑ Çíä ÝÇíá æÌæÏ äÏÇÑÏ"
End If

End Sub