请问如何在vb中运行sql语言

我想实现单击一个按钮后在Spreadsheet中输出结果，请问如何在vb中运行以下sql语言，我只会实现单挑查询语句
单条查询语句是这样的Private Sub Command3_Click()
Dim number
CN.ConnectionString = "Provider=sqloledb;Data Source=ZHUSG;Initial Catalog=jas;User Id=sa;Password=sa;"
CN.Open
Rs.CursorLocation = adUseClient
rs1.CursorLocation = adUseClient
rs2.CursorLocation = adUseClient
rs2.Open "select  name  from   syscolumns   where   id=object_id( 'student ') order by name desc", CN, adOpenDynamic, adLockOptimistic
For j = 1 To 2
Spreadsheet1.Sheets(1).Cells(1, j).Value = rs2("name")
rs2.MoveNext
Next
rs1.Open "select count(*) as number from student", CN, adOpenDynamic, adLockOptimistic
Set number = rs1("number")
Rs.Open "select * from student", CN, adOpenDynamic, adLockOptimistic
For i = 2 To number
Spreadsheet1.Sheets(1).Cells(i, 1).Value = Rs("n")
Spreadsheet1.Sheets(1).Cells(i, 2).Value = Rs("age")
Rs.MoveNext
Next
Rs.Close
CN.Close
End Sub
下面是sql语句
create table final(问题 varchar(200))                
create table store(value varchar(4000))                             
select identity(int,1,1) as number,* into store_temp from store
set @id = object_id('buguding_temp')
set @col = 3                                                                    
while @col < 419
begin
select @a=name from syscolumns where id = object_id('buguding_temp') and colorder =@col
insert into store_temp exec('select ' + @a + ' from buguding_temp where number = 1')
set @col = @col + 1
end
set @n =2          
while @n < 8
begin
set @col = 3
while @col < 419
begin
select @a=name from syscolumns where id = object_id('buguding_temp') and colorder =@col
SET IDENTITY_INSERT store_temp ON
insert into store_temp (number,value) exec('select 417,' + @a + ' from buguding_temp where number ='+@n)
select @getold = value from store_temp where number = @col - 2
select @getnew = value from store_temp where number = 417
if @getnew > @getold
begin
update store_temp set value = (select value from store_temp where number = 417) where number = @col -2
insert into final exec('select timestamp from buguding_temp where number =' +@n)
insert into final exec('select name as 问题列 from syscolumns  where id = '+@id+' and colorder = '+@col) 
insert into final exec('select value - '+@getold+' as 差值 from store_temp where number = '+@col+' -2')
end
delete from store_temp where number = 417
set @col = @col+1
end
set @n = @n +1
set @col = 1
end
select * from final请问如何单击按钮后实现整个sql查询