如何向SQL Server发送命令完成从VB.Net程序发送的select查询开始的批处理？

Imports System.Data.SqlClient

Public Sub ExecuteBatchProcess()
    Dim connectionString As String = "Data Source=YourServer;Initial Catalog=YourDatabase;User ID=YourUsername;Password=YourPassword"
    Dim sql As String = "YourStoredProcedureName"
    
    Using connection As New SqlConnection(connectionString)
        connection.Open()
        
        Using command As New SqlCommand(sql, connection)
            command.CommandType = CommandType.StoredProcedure
            
            ' 添加参数（如果需要）
            command.Parameters.AddWithValue("@Parameter1", value1)
            command.Parameters.AddWithValue("@Parameter2", value2)
            
            ' 执行命令
            command.ExecuteNonQuery()
            
            ' 获取结果集（如果需要）
            Using reader As SqlDataReader = command.ExecuteReader()
                While reader.Read()
                    ' 读取每一行的字段值
                    Dim column1 As String = reader.GetString(0)
                    Dim column2 As Integer = reader.GetInt32(1)
                    
                    ' 处理查询结果
                    ' ...
                End While
            End Using
        End Using
    End Using
End Sub