Create the table SQL server = VB 6.0

I have 1 sort code. It is Procedure creat the IDTEMP Table

DECLARE @Col1 int,
     @sql nvarchar(1000)

DECLARE curA CURSOR FOR
SELECT Distinct BangHeSo.TenTruong FROM BangDinhNghia INNER JOIN BangHeSo ON BangDinhNghia.KS_Tuyen_Via_LK_id = BangHeSo.KS_Tuyen_Via_LK_id INNER JOIN Tuyen_LoKhoan ON BangDinhNghia.Tuyen_Lokhoan_id = Tuyen_LoKhoan.tuyen_lokhoan_id INNER JOIN LoKhoan ON Tuyen_LoKhoan.lokhoan_id = LoKhoan.lokhoan_id INNER JOIN Tuyen ON Tuyen_LoKhoan.tuyen_id = Tuyen.tuyen_id INNER JOIN VungKhoangSan ON BangDinhNghia.VungKhoangSan_id = VungKhoangSan.vungkhoangsan_id WHERE (VungKhoangSan.tenvungkhoangsan ='" & cmbKS & "') AND (BangDinhNghia.TenVia ='" & cmdvia & "') AND (BangHeSo.TenPhuongAn ='" & cmbPA & "')

OPEN curA
FETCH NEXT FROM curA INTO @Col1

WHILE @@FETCH_STATUS=0
BEGIN
     if exists (select * from dbo.sysobjects where id = object_id(N'[IDTEMP]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
     BEGIN
          SELECT @sql = 'ALTER TABLE IDTEMP ADD [' + convert(varchar,@Col1) + '] varchar'
          exec sp_executesql @sql
     END
     ELSE
     BEGIN          
         
          SELECT @sql = 'CREATE TABLE IDTEMP([' + convert(varchar,@Col1)+ '] varchar)'
          exec sp_executesql @sql
     END    

FETCH NEXT FROM curA INTO @Col1
END

CLOSE curA
DEALLOCATE curA

- I write This code in VB 6.0 then code apper red colors
Help me,Where I must write this code
Thank you.