[mh66]

السلام عليكم

اريد تغيير اسم حقل ضمن جدول باستخدام الكود التالي لكن لا يعمل
اريد تعديل الكود

كود :

If S4s4 = False Then
           D1 = DAODBEngine_definst.Workspaces(0).OpenDatabase(Aboot.TextBox1.Text, False, False) ', ";pwd=" & PassWord)
       End If
       If S4s4 = True Then
           D1 = DAODBEngine_definst.Workspaces(0).OpenDatabase(Aboot.TextBox6.Text, False, False) ', ";pwd=" & PassWord)
       End If

       T1 = D1.OpenRecordset("zkedfat", dao.RecordsetTypeEnum.dbOpenTable)
       sql = "SELECT * FROM zkedfat ALTER TABLE rmz RENAME TO zmr"
       T1 = D1.OpenRecordset(sql, , dao.RecordsetTypeEnum.dbOpenTable)

       T1.Close()
       D1.Close()