كيف يمكن تغيير اسم قاعدة البيانات بالكود ؟

السلام عليكم

الأخوة الأفاضل مشرفو و رواد المنتدى

أشكركم كثيراً على حسن وسرعة التجاوب

ولى سؤالين

الأول

كيف يمكن تغيير اسم قاعدة البيانات بالكود ؟

الثانى

هل من الممكن تغيير اسم الزر OPEN إلى أي اسم آخر فى نافذة اختيار اسم الملف التى تظهر عند تنفيذ الكود التالى:

Private Sub Import (Cancel As Integer)

 Dim ofn As OPENFILENAME

        ofn.lStructSize = Len(ofn)

        ofn.lpstrFilter = "Mde Files (*.mde)" + Chr$(0) + "*.mde" + Chr$(0)

        ofn.lpstrFile = Space$(254)

        ofn.nMaxFile = 255

        ofn.lpstrFileTitle = Space$(254)

        ofn.nMaxFileTitle = 255

        ofn.lpstrInitialDir = CurDir

        ofn.lpstrTitle = " Import"

        ofn.flags = 0

        Dim a

        a = GetOpenFileName(ofn)

        If (a) Then

       .

       .



        Else

                MsgBox "Cancel was pressed"

        End If

    Exit Sub