اية الخطاء في هذا الكود

هذا هو الكود بعد التعديل

فقط ضبط المسافات

و اسم العمود 

Name   من الاسماء المحفوظة لذلك يجب تغييره

Private Function createtable() As Boolean
Dim qdf As DAO.QueryDef
Dim db As DAO.Database
Dim strSQL As String
 
strSQL = "CREATE TABLE tblsystem ("
strSQL = strSQL & " ZName Text (255) , "
strSQL = strSQL & " Container Text (50), "
strSQL = strSQL & " DataCreated DateTime , "
strSQL = strSQL & " LastUpdated DateTime,"
strSQL = strSQL & " Owner Text (50) ,"
strSQL = strSQL & " ID Autoincrement Constraint PrimaryKey PRIMARY KEY)"

On Error GoTo Err_Handler
Set db = CurrentDb
With db
'.Execute "DROP TABLE tblsystem"
.Execute strSQL
.TableDefs.Refresh
End With
createtable = True
ExitFunction:
Exit Function
Err_Handler:
Select Case Err
Case 3376, 3011
Resume Next
Case Else
createtable = False
End Select
Resume ExitFunction
End Function

شكرا اخي الكريم 

لكن الكود عندما اضعة في المديول واضغط run تظهر رسالة تفيد بانة يوجد خطأ فى هذة الجملة qdf As DAO.QueryDef 

برجاء الافادة