c 调用数据库函数

Q1： vb设计一个调用数据库的函数

sub test(ms as MSflesgrid，Rs as ADODB.Recordset)
set my_cnn = new adodb.recordset
Dim rsr, rsc, r, c As Integer
Rs.Open "select……", CnStr & DBname, adOpenStatic, adLockReadOnly
If Rs.RecordCount = 0 Then
rsr = Rs.RecordCount
If rsr > 0 Then
Rs.MoveFirst
rsc = Rs.Fields.Count
With MS
.Clear
.Rows = rsr + 1
.Cols = rsc
For c = 0 To rsc - 1
.TextMatrix(0, c) = Rs.Fields(c).Name
Next
For r = 1 To rsr
For c = 0 To rsc - 1
.TextMatrix(r, c) = Rs(c)
Next
Rs.MoveNext
Next
End With
End If
Rs.Close
Ms.SetFocus
end sub

Q2： .net如何调用数据库函数??如何往数据库函数里传报数?并返回数据集?可以举个小例子

create function f_A(@x int)
returns int
As
begin
return @x+1
end
调用时 select dbo.f_A(5)

--分隔字符串 返回一张表
create function f_splitstr(@SourceSql varchar(8000),@StrSeprate varchar(100))
returns @temp table(F1 varchar(100))
as
begin
declare @ch as varchar(100)
set @SourceSql=@SourceSql+@StrSeprate
while(@SourceSql<>'')
begin
set @ch=left(@SourceSql,charindex(',',@SourceSql,1)-1)
insert @temp values(@ch)
set @SourceSql=stuff(@SourceSql,1,charindex(',',@SourceSql,1),'')
end
return
end
调用时 select * from dbo.f_splitstr('a,b,c,d',',')