vb中调用存储过程并返回一个DataTable结果集

Public Function getNotParameterPR() As DataTable
    Dim cmd As SqlCommand = getCommand("存储过程名")
    cmd.CommandType = CommandType.StoredProcedure
    Dim read As SqlDataReader = Nothing
    Dim dt As New DataTable
    '定义表头
    dt.Columns.Add(New DataColumn("表头1"))
    dt.Columns.Add(New DataColumn("表头2"))
    dt.Columns.Add(New DataColumn("表头3"))
    dt.Columns.Add(New DataColumn("表头4"))
    Try
        Dim dr As DataRow
        read = cmd.ExecuteReader
        While read.Read
            dr = dt.NewRow
            dr("表头1") = read.Item(0).ToString.Trim
            dr("表头2") = read.Item(1).ToString.Trim
            dr("表头3") = read.Item(2).ToString.Trim
            dr("表头4") = read.Item(3).ToString.Trim
            dt.Rows.Add(dr)
        End While
        Return dt
    Catch ex As Exception
        MsgBox(ex.Message)
        Return Nothing
     Finally
        Close()
        If read.IsClosed = False Then
            read.Close()
        End If
    End Try
End Function