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