Dim Conn_web As SqlConnection

                Conn_web = MyFormz.connec.ConnWeb2(dbName)
                Dim sqlcmd_Insert As New SqlCommand(sql_Insert1 + sql_Insert2, Conn_web)


                    MsgBox("The New Record has been saved.")

                Catch ex As Exception

                End Try
Sub Insert_New_Converts_Followups(ByVal strFollowup_No As String, ByVal strFollowup_Date As String, ByVal strFollowup_By As String, ByVal strFollowup_Response As String)

        Dim sql_Insert1 As String = "INSERT INTO New_Converts_Followups(VisitorID, Followup_No, Followup_Date, Followup_By, Followup_Response )"

        Dim sql_Insert2 As String = "VALUES ('" & Me.txtNew_ConvertsID.Text & "', '" & strFollowup_No & "', '" & strFollowup_Date & "', '" & strFollowup_By & "', '" & strFollowup_Response & "')"

        MyFormz.cl_Class.Insert_str2_B(sql_Insert1, sql_Insert2, txtDBname.Text)
    End Sub

I used to use this code to do my inserts however i have recently been introduced 2 stored procedures and i came up with this code to insert using the stored procedure but now i am suck when it comes to trying to retrieve the data using the stored procedure

Dim parm1 As New SqlClient.SqlParameter("@Category_ID", "")
        Dim parm2 As New SqlClient.SqlParameter("@Category", "Value1")
        Dim parm3 As New SqlClient.SqlParameter("@Area_Name", "Value2")

        Dim cmd As New SqlClient.SqlCommand

        cmd.CommandText = "dbo.udp_tblArea_ups"

        cmd.CommandType = CommandType.StoredProcedure

        cmd.Parameters.AddRange(New SqlClient.SqlParameter() {parm1, parm2, parm3})

        Dim cn As New SqlClient.SqlConnection("Data Source=******;Initial Catalog=******;User ID=*****;Password=*****")


        cmd.Connection = cn



Function GetArea_dt(ByVal Category_ID As Integer) As DataTable

        Dim da As SqlDataAdapter = ClassClass.sp_da("udp_tblArea_sel")
        Dim dt As New DataTable
        Dim nPara_Col1 As String = "@Category_ID"
        Dim nPara_Value1 As Integer = Category_ID
        da.SelectCommand.Parameters.Add(New SqlParameter(nPara_Col1, nPara_Value1))
        dt = New DataTable
        Return dt

    End Function

the function i used to retrieve the data