مشكلة لا أعرف لها كود

يا جماعة أنا عندي مشكلة

أنا رفعت لكم نموذج صغير

المطلوب فيه الآتي

عندما أختار اسم قاعدة البيانات من List1 ثم اضغط على الزر Command1 يقوم بتغير اسم قاعدة البيانات الموجود في List1 إلى اسم انا أحدده

المشكلة عندي في الكود

Copyfile list1.text, app.path & "\pharm"

اي كيف لي ان أخبر البرنامج عندما اختار الأسم من ليست 1 يغير هذا الأسم إلى الإسم Pharm

وهذا الفورم عبارة عن أني اريد التنقل عبر قواعد البيانات

فإذا كان عندي قاعدة بيانات اسمها January2006 وهي القاعدة التي استخدمها الأن وأردت أن انتقل من هذه القاعدة إلى قاعدة أخرى وهي february2006

كيف يمكن ذلك وشكرا