مالخطأ فى هذا الكود؟

الإخوة الأعزاء

هذه أول مشاركة لى وقد كان لزاما على التسجيل فى المنتدى فأنا منبهر جداً بأعضائه الجهابذة وأرجو أن تقبلونى تلميذ فى مدرستكم

أما سؤالى فهو: مالخطأ فى هذا الكود حيث تكون النتيجة هى رسالة Type mismatch

أما الكود فهو:

Dim Sqlserver As New SQLDMO.Sqlserver
Dim Sqldatabase As New SQLDMO.Database
Dim Sqldbfile As New SQLDMO.LogFile
Sqlserver.Connect "servername", "user", "pwd"
MsgBox Sqlserver.TrueLogin & Space(2) & "hello"
Sqldatabase.Name = "g"
Sqldbfile.Name = "g"
Sqldbfile.PhysicalName = "c:\g.mDF"
Sqldbfile.Size = 4
Sqldatabase.FileGroups("primary").DBFiles.Add Sqldbfile
Sqlserver.Databases.Add Sqldatabase

وجزاكم الله خيراً :D