А если так написать?

set rs = db.execute (" SET NOCOUNT ON declare @r int exec insert_into1 ('pole2','pole3',@r output select @r")

Покажи текст insert_into1.

Кстати, здесь, по-моему, не хватает одной закрывающей скобки, а именно перед select.

А перепиши ка её так

CREATE PROCEDURE [insert_into1]
(@K_4 [int],
@K_co_5 [int],
@K_oda_6 [int],
@r [int] output)

AS
SET NOCOUNT ON
INSERT INTO [db1].[dbo].[Main]
[K],
[K_co],
[K_oda])

VALUES
(@K_4,
@K_co_5,
@K_oda_6)
select SCOPE_IDENTITY() --если MSSQL2000

Вызо, соответственно надо бы переписать так

set rs = db.execute (insert_into1 "'pole2'", "'pole3'"...)

Даже так (очепятался немного)

CREATE PROCEDURE [insert_into1]
(@K_4 [int],
@K_co_5 [int],
@K_oda_6 [int])
AS
SET NOCOUNT ON
INSERT INTO [db1].[dbo].[Main]
[K],
[K_co],
[K_oda])
VALUES
(@K_4,
@K_co_5,
@K_oda_6)
select SCOPE_IDENTITY() --если MSSQL2000

Вызов, соответственно надо бы переписать так

set rs = db.execute ("insert_into1 K_4, K_5, K_6")

вместо K_4, K_5, K_6 необходимо подставить строковые представления вставляемых величин.