ถามเรื่อง vb.net ดึงข้อมูล stored procedure ของ sql server มาแสดง

ALTER PROCEDURE [dbo].[Count_Member]
AS
BEGIN
	SET NOCOUNT ON;
		SELECT COUNT(MEMID) as CountMember FROM M3MB3R
END

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim objConnck As SqlConnection
            Dim objCmdck As SqlCommand
            Dim sysconfigck As String = WebConfigurationManager.ConnectionStrings("test1ConnectionString").ConnectionString
            Dim dtAdapter As SqlDataAdapter
            Dim dt As New DataTable
            Dim objds As New DataSet
            Dim strSQLck As String
            strSQLck = "EXEC Count_Member"
            objConnck = New SqlConnection(sysconfigck)
            objCmdck = New SqlCommand(strSQLck, objConnck)
            If (objConnck.State = ConnectionState.Open) Then
                objConnck.Close()
            End If
            objConnck.Open()
            dtAdapter = New SqlDataAdapter(strSQLck, objConnck)
            dtAdapter.Fill(dt)
            If dt.Rows.Count > 0 Then
                lbRBselect.Text = dt.Rows(0)("CountMember")
            Else
                lbRBselect.Text = "0"
            End If
        Catch ex As Exception
        End Try
    End Sub

Private Sub FormDrug2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        connection = New SqlConnection(conStr)
        If connection.State = ConnectionState.Closed Then
            connection.Open()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        sql = "SELECT * FROM ViewDrug"
        command = New SqlCommand(sql, connection)
        adapter = New SqlDataAdapter(command)
        dataSt = New DataSet()
        adapter.Fill(dataSt, "viewdrug")

        DataGridView1.DataSource = dataSt.Tables("viewdrug")

        Dim headerText() As String = {"รหัส", "ชื่อยา", "หมวด", "ผู้ผลิต", "ราคาขาย", "คงเหลือ", "วันหมดอายุ"}
        For i = 0 To headerText.Count - 1
            DataGridView1.Columns(i).HeaderText = headerText(i)
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Close()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Try

            Dim objConnck As SqlConnection
            Dim objCmdck As SqlCommand

            Dim dtAdapter As SqlDataAdapter
            Dim dt As New DataTable
            Dim objds As New DataSet

            sql = "EXEC Count_Drug"
            objConnck = New SqlConnection(conStr)
            objCmdck = New SqlCommand(sql, objConnck)
            If (objConnck.State = ConnectionState.Open) Then
                objConnck.Close()
            End If
            objConnck.Open()
            dtAdapter = New SqlDataAdapter(sql, objConnck)
            dtAdapter.Fill(dt)
            If dt.Rows.Count > 0 Then
                TextBox1.Text = dt.Rows(0)("CountDrug")
            Else
                TextBox1.Text = "0"
            End If
        Catch ex As Exception
        End Try
    End Sub