يك سوال در مورد بانكهاي اطلاعاتي

يه سوال در مورد بانك هاي اطلاعاتي vb داشتم:
كدي رو مي خوام كهدر بانك اطلاعاتي موقع ورود اطلاعات توسط كاربر بشه اطلاعات رو فارسي وارد كرد و مثل ساير اطلاعات ذخيره بشه.

مهدي جان اطلاعات در بانك به همون صورتي كه وارد ميشه ذخيره ميشه پس اگه اطلاعاتت فارسي وارد بشه به همون صورت هم ذخيره ميشه ولي اگه منظورت اينه كه سيستمت زبون فارسي نداره و ميخواي كد اسكي انگليسي رو به فارسي معرفي كني بايس يه تابع كوچولو بنويسي كه كد اسكي رو عوض كنه

آره منظورم همينه . اون تابع چيه؟

تابعش ساده است
کافیه یه تابع بنویسی که اگه کد اسکی وارد شده بابر با کد انگلیسی بود به فارسیش تبدیل کنه .

if chr(krycode) ="a" or chr(keycode="A" then keycode=asc("ش")

به همین شکل میتونی باقی حروف رو هم تبدبل کنی
این تابعش رو قبلا نوشته بودم درست کار میکرد اگه باهاش مشکل داشتی بگو تا واست بزارم

خيلي ممنون. بايد ببينمش!