Dim cmd As New SQLCommand
cmd.Connection Name = "数据源"
cmd.CommandText = "Exec 存储过程名"
如果返回表:
Dim t As DataTable = cmd.ExecuteReader
如果返回单个值:
Dim v As 数据类型= cmd.ExecuteScalar