ایجاد دیتابیس در vb6 بر روی sqlserver

[sanam]

سلام

من برای ایجاد databse برای اولین بار روی sqlserver از کد زیر در vb6 استفاده می کنم ولی جواب نمی دهد کسی می تونه کمکم کنه ؟

کد:

Dim sqlcommand, str As String


con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=(local)"


sqlcommand = "exec sp_attach_db  @dbname = N'test', "
sqlcommand = sqlcommand & " @filename1 = N'c:\test\test_Data.MDF', "
sqlcommand = sqlcommand & " @filename2 = N'c:\test\test_Log.LDF'"


    cmd.CommandText = sqlcommand
   Set cmd.ActiveConnection = con

    cmd.Execute

[relax_cp]

من از اين provider استفاده ميكنم:

"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=naser;Initial Catalog=Bank1;Data Source=ALLMAS"