Dim nDatabase As New SQLDMO.Database() Dim strProc As New SQLDMO.StoredProcedure() strProc.Name = "Sp_CreateTableCompany" strProc.Text = "CREATE procedure InsEmployees(" & _ "@v_EmpNo int,@v_Name varchar(50),@v_Surname varchar(50)," & _ "@v_isPermanent char(10))" & _ "as " & _ "Begin Insert Into PersonalInfo(EmpNo,Name,Surname,isPermanent)" & _ "values (@v_EmpNo,@v_Name,@v_Surname ,@v_isPermanent) end" nDatabase.StoredProcedures.Add(strProc)